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The  spares-optimization  model  provides  a method  for  obtaining  an  optimum  inventory 
of  spare  parts,  i.e.,  an  inventory  that  minimizes  backorders  at  a minimum  cost.  The  two 
possible  program-cutoff  constraints  are  cost  and  probability  of  spares  adequacy. 

Possible  sources  of  provisioning  data  at  the  ASO  were  analyzed,  with  the  final  choice 
being  made  between  the  Allowance  List  File  and  the  Master  Data  File  (MDF).  The  para- 
meters required  to  execute  the  qjares-optimization  program  and  the  future  use  of  the 
program  at  ASO  were  the  primary  factors  in  the  decision  to  use  the  MDF  as  the  data  source. 
This  file  provides  the  most  complete  and  accurate  information  and  is  now  the  established 
data  file  for  ASO-cognizance  items  in  the  UICP  (Uniform  Inventory  Control  Point)  system. 

ARINC  Research  Corporation  developed  a computer  program  that  would  process  data 
extracted  from  the  MDF  in  the  UICP  Input  Data  Transcript  format  and  structure  inputs  for 
the  items  to  be  provisioned  in  a format  suitable  for  the  optimization  program.  This  involved 
creating  logic  for  accurate  determination  of  item  quantities,  proper  handling  of  failure  data 
that  vary  because  of  different  item  applications  (each  possibly  stressing  the  item  differ- 
ently), and  proper  handling  of  various  levels  of  equipment  indenture. 

Program  narratives,  flow  charts,  listings,  and  operating  instructions  were  prepared  to 
make  the  use  of  the  provisioning-model  package  as  smooth  as  possible.  These  are  presented 
in  this  report. 
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This  report  documents  the  work  performed  to  adapt  the  ARINC  Research  spares- 
optimization  model  for  use  by  the  Aviation  Supply  Office  (ASO)  and  to  provide  a guide  for 
proper  application  of  this  model.  This  task,  a modification  of  Naval  Air  Systems  Command 
(NASC)  Contract  N00019-70-C-0027,  was  sponsored  by  NASC  (PMA-240)  at  the  request  of 
the  ASO. 

Under  a previous  contract  with  NASC,  ARINC  Research  Corporation  developed  a 
spares-optimization  model  and  applied  it  to  selected  sub^stems  of  the  P-3C,  an 
anti-submarine  warfare  (ASW)  aircraft  being  provisioned  by  the  ASO.  ASO  requested  that 
the  NASC  contract  be  modified  to  include  the  ARINC  Research  efforts  necessary  to  adapt 
the  optimization  model  for  use  by  ASO.  To  provide  more  generality  and  flexibility,  several 
major  modifications  were  necessary  to  make  the  program  compatible  with  the  procedures 
and  the  data-processing  system  at  ASO. 

This  report  describes  the  technical  formulation  of  the  optimization  procedure  and 
provides  guidance  for  successful  use  of  the  model. 
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CHAPTER  TWO 


INVESTIGATION  AND  ANALYSIS 


2.1  DESCRIPTION  OF  SPARES-OPTIMIZATION  MODEL 

The  spares-optimization  model  provides  a method  of  obtaining  an  optimum  inventory 
of  spare  parts  at  minimum  cost.  There  are  two  program-cutoff  constaints:  (1)  cost  — i.e.,  the 
program  will  stop  purchasing  spares  when  a particular  cost  constraint  is  reached,  and  (2)  the 
probability  of  spares  adequacy  obtained  by  minimizing  expected  stock  back  orders  (see 
Appendix  A). 

Optimization  is  accomplished  by  applying  an  iterative  process,  which  uses  the  Poisson 
distribution.  The  details  of  the  analytic  techniques  are  discussed  in  Section  2.2. 

The  output  of  the  probability-constrained  optimization  program  is  an  initial  outfitting 
list  (lOL)  and  quantities  of  system  stocks  (backup  stocks).  The  lOL  is  an  allowance  list  that 
indicates  the  quantities  of  items  to  be  made  available  at  the  time  of  initial  outfitting  and  to 
be  maintained  at  a specified  activity.  These  items  keep  the  activity  in  a material-readiness 
condition.  The  system-stocks  quantity  calculated  for  each  item  is  the  quantity  of  the  item 
to  be  maintained  at  a backup  spares  location,  called  the  “systems  stockage  point”.  This 
location  supports  all  bases,  providing  spares  for  items  lost  because  of  wearout  and  for 
certain  types  of  items  that  are  being  repaired  (see  Subsection  2.2.3). 

The  output  of  the  cost-constrained  optimization  program  is  the  gross  spare-parts  re- 
quirement for  a specified  distribution  of  support  points  as  determined  by  operating  plans. 
The  actual  level  of  spares  adequacy  versus  that  desired  for  each  base  selected  is  summarized, 
8ts  is  cost. 

2.2  ANALYTIC  TECHNIQUES 
2.2.1  Introduction 

The  ARINC  Research  spares-optimization  model  was  originally  tailored  to  fit  the  main- 
tenance philosophy  for  the  P-3C  aircraft,  and  the  optimizing  technique  used  constraint 
values  peculiar  to  the  P-3C.  To  give  the  ASO  the  capability  of  applying  this  same  procedure, 
and  to  provide  more  generality  and  flexibility,  the  primary  equations  of  the  model  were 
modified  through  the  joint  efforts  of  ASO  personnel  in  the  Allowance  Control  and  Systems 
Planning  Divisions  and  ARINC  Research  personnel.  The  modifications  permit  many  differ- 
ent provisioning  situations  to  be  handled  simply  by  changing  variables  associated  with 
maintenance-philosophy  determination. 


2.2.2  Types  of  Maintenance  Locations 


Two  general  types  of  maintenance  locations  must  be  considered; 

1.  The  operational  base  at  which  ciganizational-level  maintenance  is  carried  on  as  well 
as  intermediate-level  maintenance  (IMA) 

2.  The  depot  or  Overhaul  and  Repair  (O&R)  activity  • -J 

There  are  two  types  of  stockage  locations  that  correspond  to  these  maintenance  loca- 
tions: 

1.  The  base  supply  stocks  (maintained  at  the  operational  base) 

2.  Systems  stocks  or  backup  spares  stocks  (maintained  at  the  depot  or  O&R  activity) 

2.2.3  Repair  Categories 

Items  to  be  provisioned  are  categorized  in  five  categories  according  to  their  repairability 
— i.e.,  whether  they  are  repairable  or  consumable  (throw-away  types)  — and  the  locations  at 
which  they  are  repaired  or  thrown  away: 

1.  Depot  Repairable  — an  item  that  can  be  repaired  only  at  the  depot  or  O&R  activity 

2.  Base  Repairable  — an  item  that  can  be  repaired  at  the  operational  base  (this  cate- 
gory includes  items  repaired  at  the  organizational  level  as  well  as  those  that  undergo 
intermediate-level  repair) 

3.  Base/Depot  Repairable  — an  item  that  is  repaired  a certain  percentage  of  the  time  at 
the  operating  base  and  the  remainder  of  the  time  at  the  depot  or  O&R  activity 

4.  Base  Consumable  — an  item  of  the  throw-away  type  that  is  replaced  and  discarded 
at  an  operating  base 

5.  Depot  Consumable  — an  item  of  the  throw-away  type  that  is  replaced  and  discarded 
at  the  depot  or  O&R  activity 

2.2.4  Data  Required 

The  average-demand  equations,  discussed  in  Subsection  2.2.5,  require  the  data  elements 
summarized  in  Table  1.  This  table  includes  the  abbreviation  or  symbol  for  the  data  element, 
the  dimension  of  the  element,  the  equation  number  in  which  the  element  is  used,  and  a brief 
[ description  of  the  element. 

I 

2.2.5  Average-Demand  Equations 

i The  equations  presented  in  this  subsection  are  average-demand  formulas  for  spares  for 

j each  of  the  item  types  described  in  Subsection  2.2.3.  The  demands  determined  by  these 

[ formulas  are  used  in  the  spares-optimization  iterative  process,  which  employs  the  single- 

I •_  parameter  Poisson  distribution.  This  process  is  described  in  Subsection  2.2.6. 

2.2.5.1  Spares  Required  for  Operating  Bases 

The  average-demand  equations  presented  in  this  discussion  are  used  to  develop  the  lOL. 

No  average-demand  equation  is  presented  for  depot-consumable  items,  since  these  spares  are 
provided  only  to  t?ie  systems  stockage  point. 
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Table  I.  ELEMENTS  USED  IN  THE  AVERAGE-DEMAND  EQUATIONS 


Name 

Symbtd 

Dimenaion 

Equation 

Number 

Flying  houia  per  month 

FH 

M 

Hours 

Month 

1,  2,  3,  4 

Flying  hours  per  month 
for  consumable  and  wear- 
out  items 

FH 

Mew 

Hours 

Month 

S,  7,  8,  9,  10 

Flying  hours  per  month 
for  repairable  items 

FH 

Mr 

Hours 

Month 

6,  7,  9 

Tum-Around-Time  IMA 

TAT 

Days 

2,  3 

Resupply  Time 

RT 

Days 

1,  3 

Protection  Time 

PT 

Days 

4 

Restockage  Time 

RST 

Days 

7,  9 

Rotable  Pool  Factor 

RPF 

Removals 
One  Mainten- 
ance Cycle 

2,  3,  8 

Maintenance  Cycle 

MC 

Hours 

1,  2,  3,  4,  6, 

6,  7,  8,  9,  10 

Maintenance  Replacement 
Factor 

MRF 

1,  3,  4,  7,  9, 

10 

Dcicri|>tk>n 


A vilue  auigned  tor  each  allowance- 
list  column  representative  of  various 
flying-hour  programs. 

A value  representing  the  average  value 
of  flying  hours  per  month  considering 
the  aircraft-production  schedule  for 
the  requisitioning  objective. 

A value  representing  the  averse  value 
of  flying  hours  |>er  month  for  the 
perk^  representing  the  difference  be- 
tween the  requisitioning  objective  and 
the  recovery  maintenance-cycle  period. 
The  time,  in  days,  required  to  remove 
a failed  item  from  the  aircraft,  ship  it 
to  the  intermediate  maintenance  ac- 
tivity, and  return  it  to  the  base  stock- 
age  point. 

The  time,  in  days,  required  to  receive 
an  item  at  the  base  from  the  systems 
stockage  point  following  the  placing 
of  a requisition  due  to  a removal  and 
possible  failure  of  an  item  from  an 
aircraft. 

The  period,  in  days,  for  which  a base 
requires  a stock  of  a consumable  item. 
The  time,  in  days,  to  remove  an  item 
from  an  aircraft,  ship  it  to  the  depot, 
repair  it,  and  send  it  in  ready-for-issue 
condition  to  the  systems  stockage  point. 
The  number  of  times  a repairable 
assembly  will  be  removed  from  an  air- 
craft and  repaired  at  an  intermediate 
level  of  maintenance  or  below  in  one 
maintenance  cycle. 

A base  established  for  computing  spare- 
parts  requirements.  One  maintenance 
cycle  is  equal  to  100  flying  hours. 

For  a consumable  item,  the  number  of 
times  the  item  will  require  replacement 
in  an  aircraft  or  equipment  in  one 
maintenance  cycle. 

For  a repairable  assembly,  the  number 
of  times  an  assembly  will  be  beyond 
the  repair  capability  of  the  IMA  in  one 
maintenance  cycle. 


(continued) 


1 


Tabk  I.  (eontinuadi 

Name 

Syaabol 

PiniiiMtnn 

Equatian 

Nianbar 

Deactlplion 

Quantity  per  Application 

QA  • 

Dimeiuionleai 

1.  2,  3,  4. 

7.  8.  9, 10 

ASO  definition:  “A  numerical  ex- 
pression of  the  quantity  of  a speci- 
fic item  in  a specific  higher  entity; 
e.g.,  quantity  per  assembly,  compo- 
nent, equipment,  or  end  article.” 

Number  of  Higher  AppU- 
catioM 

Al 

Dimensionleas 

1.  2,  3,  4 

7.  8.  0,  10 

The  total  number  of  the  specific 
higher  entity  in  which  the  spe- 
cific item  is  contained. 

Percent  per  Application 

PA 

DfanensionleH 

7,  8,  9,  10 

ASO  definition:  “A  percentage 
expreaaion  of  the  total  applica- 
tion population  to  which  the 
item  applies.” 

Overhaul  Replacement 

Rate 

OR 

Dimensionleis 

10 

ASO  definition:  “A  decimal  rate 
asaigned  to  an  item  to  cite  the 
provisioning  estimate  of  the  an- 
ticipated requirement  for  the 
item  for  use  in  Overhaul  or  Re- 
pair of  a particular  application 
at  the  Depot  level.” 

Rework  Removal  Rate 

RRR 

Dimensionless 

7,  8,  9 

The  anticipated  percentage  of  the 
total  quantity  of  a repairable 
aaaembly  on  an  aircraft  or 
engine  passing  through  the  over- 
haul and  repair  that  will  require 
some  depth  of  rework. 

Wearout  Rate 

Z 

Dimensionless 

7.  8,  9 

ASO  definition:  “A  decimal  rate 
which  represents  the  percentage 
of  repairable  items  that  fail, 
which  will  not,  through  rework, 
be  returned  to  serviceable  con- 
dition.” 

Next-Higher- Amembly 
Overhauls 

NHA 

OHL8 

Dimensionless 

7,  8,  9,  10 

The  number  of  overhauls  of  the 
next  higher  assembly  in  which  an 
item  is  contained. 

Contract  Production-Lead- 
Time  Average 

PL 

Quarters 

7,  8.  9,  10 

ASO  definition:  “The  number  of 
months  covering  the  time  interval 
between  placement  of  the  contnct 
and  the  end  of  the  first  month  in 
which  shipments  less  expedites 
has  equaled  the  monthly  issue  rate 
plus  one  month;  or  the  number  of 
months  covering  the  time  interval 
between  placement  of  a contract 
and  shipment  into  the  Supply  Sys- 
tem of  25%  of  contracted  quantity 
plus  one  month,  whichever  occtirs 
first.” 

As  shown  in  Figure  1,  the  depot-repairable  item  is  shipped  directly  from  the  operating 
base  to  the  depot  and  the  system  stockage  point  provides  the  base  supply  stocks  with  an 
operational  replacement.  After  repair,  the  original  item  is  sent  from  the  depot  U)  the 
systems  stockage  point  for  eventual  reissue.  There  must  be  sufficient  stocks  at  the  base 
supply  point  to  protect  the  base  from  “stockout”  during  the  interval  in  which  items  are 
being  shipped  from  the  systems  stockage  point.  This  interval  is  called  ‘resupply  time’  (RT). 


Figure  1.  DEPOT  REPAIR  LOOP  SHOWING  RESUPPLY  TIME 


The  average-demand  equation  for  depot-repairable  items  is  as  follows; 

Average  Demand  • (^)  (^)  [V  (mRF„,)  (qa„)  (aI„,)]  (1) 

m-1 

where  w equals  number  of  applications.  The  summation  expression  of  Equation  1 is 
common  to  all  the  average-demand  equations. 


The  use  of  this  type  of  expression  can  be  explained  best  by  the  example  shown  in 
Figure  2.  Box  A,  a repairable  assembly,  contains  three  repairable  subassemblies  — two  Box 
Bs  and  one  Box  C.  Each  of  the  boxes  contains  a number  of  resistors,  R;  the  resistors,  by 


virtue  of  their  use  in  the  three  boxes,  have  three  different  MRFs.  To  express  the  demand  for 
this  item,  it  is  necessary  to  consider  a weighted  value  of  MRF  and  the  quantity  per  each 
higher-level  application,  as  follows: 


53  ^N^RFm)  (^^mj 

m=l 


(mrfa)  (')(*)  * (mrfb)  (2)  (2  X l)  t (mrfc)  (3)  (1x1) 


//  77/ 

/ /One  Box  A / / /Qne  E 

^One  Resistor  Box  A / ^wo  Box  B’l 

DAfiefAW  Dai 


Box  A 
s Per  Box  A 


Two  Resistors  Per  Box  B 


/ ^ne  Box  A 
One  Box  C Per  Box  A 

Three  Resistors  Per  Box  C 


Base-Repairable  Items 

As  indicated  by  Figure  3,  an  item  sent  to  the  IMA  for  repair  is  returned  to  the  base 
supply  stocks  after  repair  for  re-use  in  an  operational  equipment.  There  must  be  sufficient 
stocks  at  the  operating  base  to  protect  the  base  from  stockout  while  failed  items  are  being 
repaired  at  the  IMA.  The  interval  from  the  time  the  item  is  removed  from  a weapon  system 
to  the  time  it  is  repaired  is  called  the  IMA  “turn-around  time”  (TAT). 


Figure  3.  IMA  REPAIR  LOOP 


The  average-demand  equation  for  base-repairable  items  is  as  follows: 

Average  Demand  = (^)[53  (qA^)  (Mm)]  (2) 

' m=l 

Base/Depot-Repairable  Items 

There  must  be  sufficient  stocks  at  the  base  supply  point  to  protect  the  base  from 
stockout  during  the  period  in  which  an  item  is  being  shipped  to  the  base  from  the  systems 
stockage  point  — called  the  resupply  time  (RT)  — and  to  protect  the  base  against  stockout 
while  failed  items  are  being  repaired  at  the  IMA.  The  total  time  involved  in  the  removal  of 
the  item  from  a weapon  system  through  its  subsequent  repair  is  referred  to  as  the  IMA 
turn-around  time  (TAT)  (see  Figure  4). 
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Figure  4.  BASE  DEPOT  REPAIR  LOOP 


The  averz^e-demand  equation  for  base/depot-repairable  items  is  as  follows: 

Average  Demand  - ^)(^)  [i;Jl<PFm)(QA,„)  (ai„)  (^) 

(3) 

*|)HFm)(QA„)(Al„)(f)] 

Base-Consumable  Items 

The  variable  protection  time  (PT)  specifies  the  number  of  days’  stock  for  base-consum- 
able items  desired  at  the  operating  base.  The  average-demand  equation  for  base-consumable 
items  is  as  follows: 

Average  Demand  = [E  (MRJ^m)(QAm)(AIn,)]  (4) 

m=l 

2.2.5.2  Spares  Required  for  Systems  Stockage  Points 

This  discussion  presents  average-demand  equations  for  determining  the  stocks  of  items 
required  at  systems  stockage  points. 

After  the  initial  provisioning  of  the  operating  bases,  the  stockage  points  become  the 
sources  of  parts  for  the  bases.  The  equations  will  yield  the  average  quantity  of  spares  of  an 
item  that  must  be  stocked  at  the  systems  stockage  point  to  support  the  bases  for  the 
production  lead  time  of  a particular  item. 

Before  considering  the  equations  for  average  demand  at  the  systems  stockage  point,  a 
method  for  determining  the  flying  hours  per  month  (FH/Mj.^  and  FH/Mj)  should  be  dis- 
cussed. A normal  graph  of  the  cumulative  number  of  operating  aircraft  versus  time  for  a new 
weapon  system  is  a step  function  like  that  shown  in  Figure  5. 
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Figure  5.  PRODUCTION-SCHEDULE  GRAPH 


In  the  case  of  a weapon-system  program  in  which  the  number  of  aircraft  supported  per 
month  is  not  a constant,  it  is  necessary  to  select  an  appropriate  value  of  flying  hours  per 
month  to  be  used  in  calculating  average  demand  in  the  equation  for  system-backup  stocks. 
For  consumable  items  and  items  that  are  expected  to  be  lost  because  of  repairable-item 
wearout,  this  is  not  a particularly  difficult  problem.  The  average  flying  hours  per  month  are 
determined  on  the  basis  that  the  entire  requisitioning  objective  (RO)  (the  period  of  time 
considered  for  spares  support)  must  be  supported. 

How  this  average  is  determined  can  be  seen  by  examining  Figure  5 and  considering  the 
following: 

As  each  month  passes  a number  of  aircraft  are  added  to  the  total  inventory.  Each 
month  the  new  cumulative  number  of  aircraft  is  considered  in  determining  an 
incremental  area  under  the  curve.  The  value  representing  this  area,  expressed  in 
aircraft  months,  is  multiplied  by  that  month’s  flying-hour  program  (FH/M),  re- 
sulting in  average  flying  hours  for  that  month.  The  sum  of  these  figures  for  each 
month  in  the  requisitioning  objective  represents  the  total  average  flying  hours. 
Dividing  this  average  by  the  number  of  months  in  the  requisitioning  objective 
gives  average  flying  hours  per  month. 

The  average  flying  hours  per  month  for  consumables  as  calculated  above  is  multiplied 
by  the  production  lead  time  (in  months)  of  a specific  item  to  give  an  average  number  of 
flying  hours  to  be  used  in  the  average-demand  equation  for  that  item. 

For  repairable  assemblies  a similar  approach  can  be  used.  Since  the  average  flying  hours 
per  month  for  repairables  should  be  representative  of  the  number  of  aircraft  from  which 
items  are  being  placed  in  the  pipeline,  the  use  of  a simple  average  is  not  satisfactory  because 
it  would  leave  the  stockage  point  short  of  spares  in  the  latter  portion  of  the  requisitioning 
objective.  To  compensate,  an  average  is  taken  over  the  last  five  months  of  the  requisitioning 
objective.  The  use  of  this  average  value  in  the  average-demand  equation  ensures  that 
sufficient  spares  will  be  generated. 
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The  following  equations  can  be  used  to  determine  average  flying  hours  per  month: 
' Consumables  and  items  lost  due  to  wearout  — 


FH 

Mew 


■en 


MC  in  requisitioning  objective^ 


RO 


} 


(5) 


Repairables  — 


FH 

Mr 


/ HRS  \ r 

\ MC  / L 


MC  in  last  5 months  of  requisitioning  objective 


5 (months) 


(6) 


Lquations  5 and  6 must  be  hand-calculated  and  the  results  entered  as  initialization  para- 
meters to  the  program . 

Depot-Repairable  Items 

The  average-demand  equation  for  depot  repairables  at  the  systems  stockage  point  is 
written  as  follows: 


Average  Demand  = 


rst\ 

30  / 


(^)  [2  K")  (*‘4] [(f)  ( 

ni=l 
w 

* (i^)  (^)  (')]  (ohlsnha„)  (rrr„)  (qa„)(pa4  (z) 

m-1 

This  equation  is  designed  to  allow  stockage  of  spares  to  protect  the  stockage  point  from 
stockout  during  the  period  in  which  items  are  being  shipped  to  and  being  repaired  at  the 
depot,  to  provide  spares  for  repairable  items  lost  because  of  wearout,  and  to  provide  spares 
to  meet  an  additional  requirement  for  spares  support  of  overhauls  (see  Figure  6). 


Base-Repairable  Items 

The  average-demand  equation  for  base  repairables  at  the  systems  stockage  point  is  as 
follows: 

Avm8«  Demand  • H(3)(^)[E  (“•"m)  («!A„) (pa„) (a1„)] 

w (8) 

+ 23  (OHLS  NHAk)  (RRRk)  (QAk)  (z)  (PA^)  , 
k 1 


Basically,  the  equation  is  designed  to  provide  for  spares  to  be  stocked  to  allow  replacement 
of  repairable  items  lost  because  of  wearout,  plus  an  additional  quantity  for  items  required 
because  of  overhauls. 

Base/Depot-Repairable  Items 

The  average-demand  equation  for  base/depot  repairables  at  the  systems  stockage  point 
is  as  follows: 


• OHHWl-  (©(‘IHOSWW  « 

w 

^PA„j  /aI  ")W]  ^ ^ (OHLS  NHaJ  /RRRm)  (qA^)  (PAm)(z) 

m=l  ^ ^ 

This  equation  is  the  sum  of  equations  7 and  8. 

Base-Consumable  and  DepotpConsumable  Items 

Sufficient  stocks  must  be  provided  at  the  systems  stockage  point  to  preclude  stockout 
for  a predetermined  period  of  time.  This  predetermined  time  is  the  production  lead  time 
(PL).  The  average-demand  equation  is  written  as  follows: 

A.em,t  Dem«.d  - (^)  (pl)  (3)  [ ^ (mRfJ  (qa„)  (aI„)  (paJ] 

Ill*l  ^ 

* [Z  (°»“  ™*".)  (““m) K)  ('■*-»)] 
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2.2.6  Elements  of  the  Optimization  Procedure 

The  general  calculations  and  procedures  involved  in  the  operation  of  the  spares- 
optimization  model  can  be  outlined  as  follows  and  as  shown  in  Figure  7: 

1.  The  average  demand  (AD)  for  each  item  that  is  to  be  considered  in  a particular 
provisioning  is  calculated  in  the  manner  described  in  Subsection  2.2.5. 

2.  With  an  inventory  level  initially  set  to  zero,  a calculation  is  made  for  each  of ‘T’ 
items  to  determine  the  reduction  in  back  orders  that  would  be  obtained  by  adding 
one  spare  to  the  inventory.  For  each  item,  this  can  be  expressed  as 


BR  = E [B(Ni  - 1)]  - E [B(Ni)] 


-ADi 

e (ADi)m 
m! 


(11) 


3.  For  each  item,  the  value  representing  reduction  in  expected  back  orders  is  divided 
by  the  item’s  unit  cost.  This  will  result  in  “f’  values  of  need-cost  factors,  expressed  as 


BR 

Need  Cost  Factor  (i)  = — 
C(i) 


(12) 


I 

i 

i 
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4.  The  item  that  has  the  highest  need-cost  factor  is  selected  and  assigned  one  spare, 
and  the  amount  it  costs  is  considered  expended. 

5.  The  total  spent  for  spares  is  compared  with  a cost  constraint  if  this  comparison  is 
desired.  If  the  amount  expended  exceeds  the  cost  constraint,  the  program  stops. 

6.  The  probability  of  spares  sufficiency  for  a particular  item  is  expressed  by  the 
cumulative  Poisson  distribution  as 


Ni-1 

P lADi  < (Ni  - 1)1  = ^ 
m-O 


-ADi 

e (AD|)m 


m! 


(13) 


The  overall  probability  of  sufficiency  is  obtained  by  multiplying  the  individual  item 
probabilities  together.  This  can  be  expressed  as 


n P lADi  < N|  - 1] 


If  the  probability  constraint  is  desired  and  is  satisfied  — i.e.,  the  product  exceeds  an 
entered  constraint  value  — the  program  stops. 

7.  For  the  item  for  which  a spare  was  purchased,  the  reduction  in  expected  back 
orders  again  is  calculated  with  N incremented  by  one.  In  addition,  its  new  need-cost 
factor  is  calculated.  The  procedure  is  then  repeated  as  outlined  above,  starting  with 
Step  4. 

Techniques  for  reducing  the  time  required  to  perform  the  foregoing  procedure  have 
been  implemented  in  the  program  developed  for  ASO.  They  involve  setting  the  iterative- 
process  starting  point  to  a value  that  will  minimize  the  number  of  required  iterations. 
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CHAPTER  THREE 


ANALYSIS  OF  ASO  FILES 


To  make  the  spares-optimization  provisioning  model  compatible  with  ASO  data-proces- 
sing  files,  ARINC  Research  Corporation  analyzed  the  structure  and  content  of  these  files 
and  determined  that  the  two  best  choices  for  data  sources  were  the  Allowance  List  File  and 
the  Master  Data  File.  This  decision  was  based  primarily  on  the  fact  that  these  files  contain 
required  data  in  a reasonably  usable  form. 

3.1  ANALYSIS  OF  MASTER  DATA  FILE  (MDF)  DOCUMENTATION 

ASO  Instruction  P4440.60A,  dated  1 July  1969,  Subject:  Files  Maintenance  Under 
UADPS-ICP  (Uniform  Automated  Data  Processing  Systems-Inventory  Control  Point),  was 
reviewed.  The  data  elements  being  maintained  in  the  MDF  that  would  be  directly  applicable 
as  inputs  to  the  spares-optimization  program  were  identified.  They  are  listed  in  Table  2. 

3.2  ANALYSIS  OF  MASTER  DATA  FILE  UPDATE 

The  MDF  is  maintained  by  the  Univac  490  series  system  of  computers,  which  permits 
the  entire  file  to  be  accessed  randomly.  The  file  thus  can  be  updated  or  changed  by  using 
data  element  numbers  (DENs)  as  references  without  resorting  to  complete  record  replace- 
ment or  extensive  data  manipulation.  Allowance-list  spreads  for  use  in  an  lOL  are  entered 
by  such  an  updating  process,  using  DENs  D005/C007.  The  MDF  then  can  be  used  as  a 
source  to  update  the  tape  records  referred  to  as  the  Allowance  List  Files. 

3.3  ANALYSIS  OF  ALLOWANCE  LIST  FILE 

Review  of  the  Consolidated  Aviation  Allowance  List  Transcript  4ND-ASO-4441/17  as 
well  as  the  latest  master-tape  format  of  the  Allowance  List  File  records  maintained  by  the 
Data  Processing  and  Allowance  Control  Divisions  revealed  that  the  data  elements  required 
for  use  by  the  spares-optimization  program  were  quite  incomplete.  Allowance-list  spreads 
can  be  updated  in  the  Allowance  List  File  by  a file  interface  with  the  MDF. 

3.4  FILE  SELECTION  AND  RESULTANT  ACTION 

The  relationship  of  highest-level  re.iairable  assemblies  to  lower-level  nested  repairables 
(“sons”,  “grandsons”,  etc.),  as  well  as  the  application  of  piece  parts  to  these  repairables,  is 
very  complex.  The  data-file  source  that  would  be  most  helpful  in  determining  these  relation- 
ships was  found  to  be  the  MDF.  Therefore,  ARINC  Research  selected  that  file  as  the  most 
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Table  2. 

DATA  ELEMENT  NUMBERS  (DEN’S) 

USED  BY  DATA-CONVERSION  PROGRAM 

Data  Element  Number 

Title 

(DEN) 

3092 

Local  Routing  Code  (LRC) 

B019 

Contract  Production  Lead  Time  Average 

B9b3 

Unit  Price 

8055 

Unit  Price,  Item  Replacement 

B067 

Rules  Code 

C001E 

NATO  Country  Code 

C002 

Activity  Control  Number 

C003 

Cognizance  S3rmbol 

C004 

Item  Name 

C005 

Unit  of  Issue 

C035 

Federal  Supply  Code  for  Manufacturers  (FSCM) 

C042 

Federal  Supply  Classification 

D001 

Reference  Number 

D008 

Repairable  Identification  Code  — RIC  (Model  Code) 

D046 

Federal  Item  Identification  Number  (FIIN) 

D009 

Application  Code 

D011 

Quantity  Per  Application 

D012 

Source  Code 

D013 

Maintenance  Code 

D013C 

Maintenance  Condemnation  Code 

D029 

Application/Identification  Number  Activity  Code 
(AINAC) 

E0O7 

Provisioning  Insurance  Quantity 

F001 

Maintenance  Replacement  Rate 

F003 

Overhaul  Replacement  Rate 

F007 

Wearout  Rate 

F018 

Percent  Per  Application 

D0gf5/C007 

Allowance  List  Quantities 
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logical  data  source  for  the  optimization  programs.  Other  factors  that  influenced  this  selec- 
tion were  the  random-access  update  feature,  the  intention  of  the  ASO  to  use  the  MDF  for 
allowance-list  maintenance  in  the  future,  and  the  completeness  of  MDF  data  entries. 


A Data  Conversion  Program  (see  Appendix  B)  was  written  to  generate  the  key  para- 
meters for  the  optimization  programs  (see  Appendixes  C and  D)  by  using  the  MDF  data  as 
inputs. 

3.5  ANALYSIS  AND  USE  OF  UICP  DATA  CARD  FORMAT 

The  spares-optimization  program  is  designed  to  use  provisioning  data  in  the  UICP  Input 
Data  Transcript  format  (4ND-ASO-4423/45A/B/C).  These  data  can  be  made  available  to  the 
program  user  in  two  ways.  First,  an  input  tape,  generated  by  ASO  in  the  UICP  Data  format 
and  containing  selected  data  element  numbers  (DENs)  extracted  from  the  MDF,  can  be  used 
as  input  to  the  ARINC  Research  data-conversion  program.  This  is  a preferred  method 
because  the  information  thus  obtained  will  be  complete  and  well  edited.  The  second 
method,  which  is  less  desirable,  is  to  use  data  cards  in  the  UICP  Data  format,  punched 
before  the  information  is  entered  into  the  MDF. 

One  drawback  of  using  data  cards  is  that  if  any  information  pertaining  to  a particular 
item  was  previously  entered  into  the  MDF,  a card  would  not  be  generated  for  that  piece  of 
information  a second  time.  Consequently,  information  on  long-lead  items,  for  example, 
might  not  be  included  in  the  package  of  data  cards  desired  for  use  with  the  optimization 
process.  This  would  result  in  an  incomplete  optimization  of  the  provisioning. 

The  data-conversion  program  uses  the  UICP  data  to  structure  an  input  suitable  for  the 
optimization  program.  The  data-conversion  process  is  described  in  the  program  narrative. 
Appendix  B. 
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CHAPTER  FOUR 
DEMAND-FLOOR  OPTION 


One  of  the  many  problems  faced  by  the  ASO  is  that  an  excessive  range  of  items  is  being 
carried  currently  on  the  lOLs.  To  reduce  the  quantity  of  items  being  treated  by  the  opti- 
mization process  without  jeopardizing  spares  sufficiency,  several  approaches  to  range  reduc- 
tion were  considered. 

A method  called  the  “demand-floor  option”  was  selected;  this  allows  the  program  user  to 
eliminate  those  items  that,  according  to  a specific  maintenance  philosophy  or  in  his  own 
judgement,  do  not  warrant  consideration  in  the  optimization  process  (i.e.,  their  demand 
over  a specified  period  is  less  than  a reference  value,  called  the  “demand  floor”).  This 
elimination  is  achieved  by  providing  the  program  with  test  parameters  for  each  type  of  item. 
A sample  test  parameter  is  “1,6”  — which  represents  one  demand  in  six  months.  In  this  case, 
if  an  item  has  less  than  one  demand  in  six  months,  it  is  not  considered  in  the  optimization 
process  and  zero  spares  are  assigned  in  the  lOL.  Any  level  of  range  reduction  desired  can  be 
obtained  by  providing  appropriate  parameters.  The  demand  per  month  is  derived  from  the 
average  demand  equations  (see  Appendix  C). 
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A problem  commonly  encountered  in  the  provisioning  of  a specific  weapon  system  is 
the  relationship  between  budgeted  spares  funds  for  the  weapon  system  and  the  incremental 
provisioning  of  the  subsystems  of  the  weapon  system.  When  the  incremental  subsystem 

* provisionings  take  place,  the  question  arises  as  to  how  much  of  the  total  weapon-system 
budget  to  spend  on  the  subsystem  being  provisioned. 

• In  one  a priori  technique  for  determining  the  amount  of  money  to  be  allocated  to  each 
subsystem  of  a weapon  system,  the  various  subsystems  or  groups  of  subsystems  that  will 

” “ undergo  separate  provisionings  are  identified  and  grouped  together.  Then  estimates  are  made 

for  all  pertinent  data  required  to  run  the  spares-optimization  program  on  an  item-by-item 
basis.  These  estimates  need  not  be  made  for  all  items  in  a particular  provisioning;  however, 
the  accuracy  of  the  final  answer  will  correlate  roughly  with  the  accuracy  of  the  estimates 
made  and  the  number  of  items  covered.  When  all  items  are  not  included  in  the  original 
estimate,  it  is  important  that  the  estimates  start  with  the  highest-ranked  item  and  work 
downward.  The  ranking  is  accomplished  by  multiplying  item  cost  by  item  failure  rate. 

B - Once  these  estimates  have  been  made,  the  spares-optimization  program  is  initialized  for 

the  probability  run,  and  an  arbitrary  or  estimate  lOL  is  developed  for  each  separate  sub- 
system being  provisioned. 

Finally,  the  operational  planning  data  jure  used  to  determine  a gross  requirement  for 
spares,  which  is  used  as  a baseline  for  developing  the  apportionment  as  described  in  the 
following  example. 

Suppose  that  weapon  system  XYZ  has  available  for  a particular  fiscal  year’s  provisioning 
$20  million  of  PAMN  funds.  Further  suppose  that  the  subsystems  of  the  weapon  system  will 
be  provisioned  in  five  separate  provisionings  and  that  an  arbitrary  10  L has  been  developed 
for  the  five  groups  of  equipment.  Suppose  that  the  operational  planning  data  consist  of  a 
column-8  lOL  selection  and  the  system  backup;  then  the  following  numbers  are  calculated 
for  the  five  groups  of  equipment; 

Column  8 + System  Backup  Cost  ($  Millions) 

5 

10 

1 

2 

4 

Total:  22 

Then  the  apportionment  of  the  $20  million  budget  would  be  as  shown  in  Table  3. 
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Table  3.  APPORTIONMENT  OF  SAMPLE  BUDGET 


System 

Apportionment 

Factor 

Total 

Budget 

(SMillions) 

Apportioned 

Budget 

($Millions) 

1 

5/22 

20 

SO 

1 1 

2 

10/22 

20 

100 

1 1 

3 

1/22 

20 

10 

TT 

4 

2/22 

20 

ao 

1 1 

5 

4/22 

20 

IS 

1 1 

Total 


1 1 


$20  MUlion 


CHAPTER  SIX 


CONCLUSIONS  AND  RECOMMENDATIONS 


6.1  CONCLUSIONS 

The  following  conclusions  were  reached  as  a result  of  ARINC  Research’s  efforts  in 
adapting  a provisioning  model  for  the  Aviation  Supply  Office: 

‘ The  provisioning  model,  as  adapted,  can  be  used  by  the  Aviation  Supply  Office.  Only 
items  in  the  UICP  Input  Data  Transcript  Format  (4ND-ASO-4423/45)  will  be 
handled  by  the  provisioning  model. 

' The  Master  Data  File  (MDF)  is  the  most  appropriate  source  of  information  for  use  as 
inputs  to  the  provisioning  model. 

‘ The  MDF  data  must  be  restructured  to  be  used  by  the  provisioning  model;  this  was 
the  reason  for  developing  the  data-conversion  program. 


6.2  RECOMMENDATIONS 

The  following  recommendations  are  made: 

' Currently,  the  Master  Data  File  (MDF)  contains  information  only  on  items  under  the 
cognizance  of  the  ASO.  It  is  recommended  that  extraction  programs,  with  output 
format  the  same  as  the  MDF  extraction  format,  be  written  for  files  containing  infor- 
mation on  items  not  under  ASO  cognizance.  This  would  allow  the  handling  of  com- 
plete provisionings  in  one  program  operation. 

' The  development  of  compatible  models  for  use  with  the  ARINC  Research  model, 
such  as  an  inventory  model  and  a replenishment  model,  should  be  considered. 

• Initialization  parameters  provided  by  the  ASO  managers  should  be  coordinated  by  an 
analyst  to  check  for  consistency  and  to  provide  the  data-processing  division  with  a 
single  package  for  creation  of  the  data  cards. 

' A portion  of  the  Master  Data  File  should  be  reserved  to  keep  critical  information 
intact  for  an  in-process  provisioning. 


This  appendix  presents  a more  detailed  definition  of  “optimum”,  gives  the  necessary 
assumptions  used  in  the  optimization  methodology,  and  shows  the  validity  of  the  assump- 
tions for  the  optimization  procedure. 

“Optimum”,  as  used  in  the  ASO  provisioning  models,  is  defined  as  that  inventory 
obtained  by  minimizing  expected  back  orders,  for  a minimum  cost,  within  a specified 
probability  constraint,  or  by  minimizing  expected  back  orders  for  a given  dollar  cost. 

The  expected  number  of  back  orders  (unfilled  demands)  for  a part  with  Nj  spares  is 
given  by: 

oe 

ElB(Ni)]=^  (k-Ni)Pi(k) 
k-Ni+1 


If  the  number  of  spares  for  part  i is  increased  from  Nj  to  Ni  + 1,  the  reduction  in  back 
orders  per  additional  dollar  spent  is 

Ni 

1 Pi  (k) 

E [B(Ni)]  - E [B(Ni+l)l  k-0 


Ci  Ci 

The  optimization  procedure  for  choosing  the  spares  assignment  is  stepwise.  The  first 
item  for  which  one  spare  is  chosen  is  that  for  which 


Ni 


Pi  (k)l 


is  maximum.  If  this  is  the  part,  then  Nj  = 1 and  all  other  Ni,  i j values  remain  zero.  If 
the  constraint  is  not  violated,  the  procedure  is  repeated  so  that  when  the  current  spares 
assignment  is  (Ni , N2  . . . , Nm ),  a particular  cross-sect.on  of  spares  in  time,  a spare  is  always 
added  for  the  part  for  which  Ni 


IS  maximum. 
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This  procedure  is  based  on  the  economic  principle  of  marginal  or  incremental  analysis. 
In  this  case,  we  consider  the  ratio  of  the  incremental  decrease  in  expected  back  orders  to  the 
incremental  increase  in  cost. 

To  implement  this  approach,  an  equation  for  P(k)  is  necessary.  The  model  uses  the  well 
known  result  of  Palm  that  if  demands  are  Poisson-distributed  with  rate  X and  mean  repair  or 
resupply  time  is  T,  the  number  in  repair  or  resupply  in  the  steady  state  is  Poisson  with 
parameter  XT;  therefore,  if  a Poisson  demand  is  assumed  (equivalent  to  a constant  failure 
rate),  we  have 


Optimization  based  on  expected  back  orders  is  theoretically  acceptable  since  several 
assumptions  can  be  reasonably  made.  The  first  of  these  concerns  the  assumption  of  a 
constant  arrival  or  demand  rate.  It  is  not  unreasonable  to  expect  that  if  one  or  several  of  a 
squadron’s  planes  are  unavailable,  then  the  remaining  planes  would  take  up  the  slack  by 
flying  a greater  number  of  hours.  When  many  planes  are  experiencing  shorties,  however, 
then  this  assumption  may  not  be  reasonable.  However,  since  the  sparing  procedure  will  yield 
high  availabilities,  a large  number  of  plane  shortages  is  unlikely  and  the  optimization  process 
will  yield  results  that  are  consistent  with  the  stated  goals. 

The  second  mtgor  assumption  (which  actually  can  also  be  used  to  justify  a constant 
demand  rate)  is  that  some  type  of  emergency  procedure  exists  so  that  necessary  parts  can  be 
obtained  when  plane  availability  reaches  a critical  stage. 

For  example,  if  a squadron  consists  of  ten  planes,  the  procedure  might  be  such  to 
obtain  immediately,  through  some  special  source,  the  necessary  parts  to  maintain  at  least  six 
available  planes.  These  parts  then  become  part  of  the  inventory,  and  by  this  procedure  the 
use  of  a theoretically  inflnite  number  of  back  orders  becomes  justifiable. 


J 

J 


a 


J 

1 


A-2 


APPENDIX  B 


I 
1 

i 

DAT A-CONVERSION  PROGRAM 


To  provision  spare  parts  for  an  item  contained  within  a specific  entity  (using  the 
spares-optimization  program),  entity  being  defined  as  an  aircraft,  system,  etc.,  it  is  necessary 
to  know  certain  attributes  of  the  item.  These  attributes  include  the  true  quantity  of  the 
item  in  the  entity,  as  well  as  an  accurate  representation  of  the  item’s  failure  characteristics 
derived  from  consideration  of  the  maintenance  replacement  factors,  rotable-pool  factors, 
and  overhaul  replacement  rates. 

To  determine  the  attributes,  it  was  necessary  to  develop  the  data-conversion  program. 
The  data-conversion  program  processes  input  data  in  the  UICP  Data  Card  Format  as  shown 
in  Figure  B— 1.  These  processed  data  are  then  inputted  for  use  in  the  average-demand 
equations  in  the  spares-optimization  program. 

1,  PASSl 

The  data-conversion  program  developed  by  ARINC  Research  Corporation  is  designed  to 
restructure  data  from  the  UICP  Input  Data  Transcript  format  into  a form  suitable  for  input 
to  the  spares-optimization  model  (see  Figure  B— 1).  The  input  to  the  data-conversion  pro- 
gram is  a tape  supplied  by  ASO  that  includes  the  information  (DENs)  for  each  FUN  that  is 
required  by  the  spares-optimization  program.  The  first  part  of  Pass  1 of  the  data-conversion 
program  consists  of  an  ^it-and-sort  routine.  This  sub-program  deletes  any  DENs  not  neces- 
sary for  consideration  by  the  data-conversion  program  and  then  sorts  the  DENs  remaining 
for  each  FUN  by  the  following  criteria:  all  DENs  other  than  DEN  D009  are  carried  in  the 
order  read;  all  D0^9s  come  last,  with  D029  sub-DENs  occurring  in  the  first  D009  string. 
These  DENs  are  entered  on  a drum  set  for  later  retrieval. 

In  the  data-conversion  program,  the  records  are  read  sequentially  and  each  record  is 
processed  in  turn.  In  essence,  the  technique  employed  is  to  identify  the  DEN  in  each  record; 
then,  by  use  of  the  reread  feature  available  in  UNI  VAC  490  FORTRAN,  the  input  buffer  is 
read  again  with  the  format  required  for  retrieving  the  data  corresponding  to  this  particular 
DEN. 

Pertinent  descriptive  information  is  retrieved  and  saved;  this  includes  the  nomenclature, 
federal  supply  code  for  manufacturers,  federal  supply  class,  unit  of  issue,  etc.  When  this 
portion  of  the  program  has  been  completed  for  a particular  FUN,  all  remaining  DENs  for 
this  FIIN  are  D009s;  the  program  then  begins  to  test  for  D009  sub-DENs.  All  D029s  are 
processed  first,  and  the  application  codes  corresponding  to  the  D029s  are  stored  in  arrays 
that  correspond  to  the  application/identification  number  activity  code  (AE,  AT,  AR,  AP, 
AQ,  or  AC);  these  application  codes  are  later  used  as  references  in  processing  the  remainder 
of  the  sub-DENs.  The  application  activity  codes  indicate  that  the  specific  application  is  to 
an  aircraft,  is  a highest-level  repairable  assembly,  is  a nested  lower-level  repairable  assembly. 
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is  an  allowance-list  item,  is  a consumable  item,  or  is  a par  pool  or  insurance  item.  As  the 
remainder  of  the  sub-DENs  are  processed  for  a particular  FUN,  their  data  are  stored  in 
locations  indicated  by  comparing  their  application  codes  with  those  previously  determined 
as  references. 

After  all  records  are  processed  for  a particular  FIIN,  an  item-type  code  is  assigned  to 
each  FIIN  by  examination  of  the  SM&R  code  (D(lfl3  and  Dflfl3C).  These  codes  indicate  that 
the  item  is  base-repairable,  base-consumable,  depot-repairable,  base/depot-repairable,  or 
depot-consumable.  Finally,  all  the  information  accumulated  for  each  FIIN  is  written  on  tape 
for  input  to  Pass  2 of  the  data-conversion  program. 

2.  PASS  2 

Pass  2 of  the  data-conversion  program  relates  all  items  to  higher  assemblies  and  calcu- 
lates several  critical  quantities,  hereafter  called  attributes,  for  each  item  (See  Appendix  F). 
These  calculated  attributes,  along  with  the  identification  information  of  Pass  1,  are  neces- 
sary input  data  to  the  ARINC  Research  Spares  Optimization  Model,  which  follows  the 
Data-Conversion  Program  and  the  Edit  Program  (see  Appendix  E). 

Generally,  the  program  separates  repairable  and  consumable  items  to  determine  the 
relationship  between  highest-level  repairables  and  lower-level  repairables  and  consumables. 
The  consumables  are  the  lowest-level  items;  thus  they  are  placed  in  a “save”  area  to  be 
processed  after  the  higher  nesting  has  been  determined. 

The  highest  level  of  repairables  is  referred  to  as  “fathers”,  those  having  AT  in  their 
D0^29  data  locations.  Each  of  these  is  processed  immediately  as  it  is  read  from  the  input  tape 
(from  Pass  1)  and  transferred  to  the  output  tape,  since  it,  as  the  highest-level  repairable, 
requires  no  further  processing.  Their  model  codes,  quantities,  and  calculated  number  of 
overhauls  are  saved  to  process  the  next  lower  level  of  repairables,  the  “sons”  (those  items 
which  have  AR  in  their  D029  data  locations). 

The  applications  for  each  lower-level  repairable  are  matched  against  the  previous  higher 
level’s  finished  models.  The  first-level  finished  models  are  the  “fathers”,  the  second,  the 
“sons”,  etc.  When  all  of  a repairable’s  application  codes  have  been  “satisfied”  by  relation  to 
a higher  assembly,  processing  for  it  is  complete  and  it  becomes  a part  of  the  next  higher 
level  of  assemblies. 

Once  a level  has  been  processed,  there  is  no  need  to  keep  it,  because  all  references  to 
that  level  have  been  satisfied.  Hence,  the  length  of  the  ’.ist  of  finished  models  may  be 
reduced  to  a single  level,  and  processing  is  speeded  up. 

Upon  completion  of  this  process,  when  all  nesting  is  finished,  the  model  codes,  over- 
hauls, and  quantities  of  all  processed  repairables  are  returned  to  core.  These  will  then  be 
matched  against  the  consumables’  applications  codes.  Since  the  search  for  a match  can  be 
done  more  quickly  by  using  a nonsequential  search  (binary  sectoring),  the  model  codes  are 
sorted  from  low  to  high.  A search  routine  can  then  match  up  application  codes  to  model 
codes  in  a little  more  than  half  the  time  of  a sequential  search. 

The  program  itself  is  organized  as  a set  of  subroutines  called  from  a main  “Driver” 
program  as  needed.  The  subroutines  are  named  INIT,  GETFIN,  SORT,  AECALC,  ATCALC, 
ARCALC,  APCALC,  and  AREROR. 
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2.1  Main  Driver  Routine 

The  main  program,  the  driver,  calls  INIT  to  initialize  variables.  The  driver  then  loops  for 
each  item,  calling  subroutine  GETFIN  to  read  in  each  item’s  data  and  simultaneously 
checking  the  item  to  see  if  it  is  a consumable.  If  it  is  a consumable,  it  is  saved  in  a temporary 
data  set,  ITAPIR,  for  further  processing.  If  the  item  is  a repairable,  subroutine  ATCALC  is 
entered  to  calculate  values  for  the  highest-level  repairables  (fathers)  and  for  items  that  have 
aircraft  applications.  This  loop  continues  until  all  of  the  items  have  been  placed  on  the  final 
output  tape  to  the  Spares  Optimization  Model  (SOM),  on  JTAP2R  (lower-level  repairables 
on  which  some  processing  is  still  required),  or  on  ITAPIR  (consumables).  The  model  codes, 
quantities,  and  overhauls  for  all  AT  items  are  written  on  IHOLD  and  the  last-highest-level 
“hold”  tape,  JHOLD. 

After  the  PIINs  have  been  processed  initially,  the  repairables  tape,  JTAP2R,  is  rewound 
and  reassigned  as  the  input  tape,  ITAP2R.  A “scratch”  data  set  is  assigned  to  JTAP2R  for 
output  of  incompletely  processed  repairables.  IHOLD  is  rewound  and  read,  filling  JMDLCD, 
an  array  in  core,  which  holds  the  last  level  of  completed  repairables.  The  model  codes  from 
the  last  highest  level  are  sorted.  Then,  for  each  repairable  remaining  to  be  processed,  sub- 
routine ARCALC  is  entered  to  relate  these  items  properly  to  higher-level  assemblies  that 
contain  them. 

When  all  remaining  repairables  have  been  considered,  IHOLD  is  examined  to  determine 
if  any  repairables  were  processed.  If  no  change  was  made  to  IHOLD,  but  some  repairables 
remain,  an  error  has  occurred  and  subroutine  AREROR  is  called,  which  attempts  to  find  the 
error  and  terminates  processing. 

When  all  repairables  have  been  processed,  the  “hold”  tape,  JHOLD,  is  rewound  and  read 
to  organize  all  repairables  model  codes,  overhauls,  and  quantities.  These  are  sorted.  The 
consumables  tape,  ITAPIR,  is  rewound.  Subroutine  APCALC  calculates  attributes  for  all 
consumables  using  ITAPIR  as  an  input. 

The  output  tape,  IFINALTAPE,  contains  all  of  the  FIINsto  be  processed  by  the  SOM, 
and  a second  tape,  NUMBEROFFIINS,  containing  the  number  of  processed  items.  These 
tapes  will  be  the  reformatted  ASO  data  input  to  the  ARINC  Research  spares-optimization 
Model. 

2.2  Individual  Subroutines 

Subroutine  INIT  initializes  the  input/ou^ut  units,  assigning  logical  units  to  the  sym- 
bolic names  used  in  the  rest  of  the  program.  Planning  data  are  read  in  from  a card:  Tau 
Prime  Prime  (T2),  Systems  per  Aircraft,  and  Overhauls  per  Aircraft.  The  number  of  items 
(FUNS)  is  read  from  a tape  created  in  Pass  1.  Control  returns  to  the  driver  program. 

Subroutine  GETFIN  reads  the  input  generated  by  Pass  1 and  finds  several  printout 
values  — the  first  occurrence  of  MRP,  RPF,  and  Percent  per  Application  (PCAP).  A list  code 
with  1,6  or  A in  the  fifth  character  is  inserted  into  the  first  position  of  variable  JCD;  s list 
code  with  2,7  or  B goes  into  the  second  position  of  JCD,  thus  allowing  an  item  to  be 
identified  as  a Part  1 or  a Part  2 lOL  item.  Control  passes  back  to  the  driver. 

Subroutine  SORT  sorts,  from  low  to  hi^,  an  array  passed  to  it  as  a parameter.  A 
typical  example  is  CALL  SORT  (ALLMODELS,  LENGTH,  NOVERHAULS,  NSYSTEM). 
The  indexed  variable  to  be  sorted  is  the  first  parameter,  the  number  of  items  to  be  sorted 
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the  second  parameter.  Then  two  indexed  attributes  of  the  first  variable  are  sorted  — the 
number  of  overhauls  (floating  point),  and  the  number  (integer)  of  that  item  in  the  system. 
The  sort  is  performed  in  a “double  bubble”  manner,  lowest  going  to  the  top,  highest  sinking 
to  the  bottom  of  the  sorted  array.  At  completion,  control  returns  to  the  calling  routine. 

Subroutine  SEARCH  looks  for  the  third-fourth  parameters  (double  word)  in  the  first- 
parameter-named  array  with  length  being  the  second  parameter.  A typical  example  is  CALL 
SEARCH  (MODELCODES,  LENGTH,  APPCD(l),  APPCD(2),  INDEX,  ERROR).  If  success- 
ful, the  search  returns  the  index  of  the  element  in  the  array  and  an  error  code  of  0.  If 
unsuccessful,  the  error  code  is  set  to  1.  The  method  of  search  is  binary  sectoring,  a method 
superior  to  sequential  searching  for  a large  number  of  sorted  items.  Control  returns  to  the 
calling  routine. 
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Subroutine  AECALC  calculates  attributes  for  each  of  the  three  types  of  repairables  (see 
Appendix  F),  using  aircraft  planning  data.  These  attributes  will  be  summed  for  each  item 
later.  Control  returns  to  the  calling  routine. 


Subroutine  ATCALC  calculates  all  attributes  for  items  having  AT  application  codes, 
highest-level  repairables  (fathers).  If  the  item  is  a “father”,  it  is  put  onto  the  final  output 
tape,  IFINALTAPE,  which  is  used  for  input  to  the  ARINC  Research  spares-optimization 
model  (SOM).  The  model  code,  calculated  overhauls,  and  quantity  of  the  item  are  put  in  a 
“hold”  data  set,  JHOLD,  for  later  processing  of  consumables;  and  in  IHOLD,  a single-level 
“hold  .ia  set,  used  as  a reference-data  set  for  lower-level  repairables;  and  if  it  has  aircraft 
applications,  values  are  calculated  for  it  and  then  the  FUN  is  put  in  a “hold”  data  set, 
JTAP2R,  for  further  processing.  Control  returns  to  the  driver. 

Subroutine  ARCALC  (see  Figure  B— 2)  reads  from  a “hold”  data  set,  ITAP2R  (formerly 
JTAP2R),  a partially  processed  repairable.  Application  codes  not  equal  to  blanks  are 
matched  against  the  last-highest-level  processed  model  codes  of  JMDLCD,  an  array  in  core. 
If  a match  of  application  code  (appcode)  and  model  code  occurs,  the  item’s  attributes  are 
calculated  and  summed  and  the  particular  appcode  is  set  to  blanks.  When  all  appcodes  are 
blanks,  and  processing  of  the  item  is  complete,  its  attributes  are  outputted  to  the  SOM  tape 
(IFINALTAPE),  JHOLD,  and  IHOLD  data  sets.  If  there  is  an  unprocessed  appcode,  the  item 
is  placed  in  JTAP2R  for  further  processing.  Control  returns  to  the  driver. 


Subroutine  APCALC  calculates  the  appropriate  attributes  of  a consumable,  reading  the 
ITAP2R  data  set  for  each  item,  searching  the  repairables  model  codes  for  an  appcode  match, 
and  outputting  the  results  to  the  SOM  tape  (IFINALTAPE).  Control  will  then  return  to  the 
driver. 

Subroutine  AREROR  is  reached  if  there  is  an  error  in  the  nesting  of  repairables.  The 
message  “OOPS”  appears  at  the  top  of  a page  to  signify  entrance  to  AREROR.  At  least  one 
repairable  item  has  an  application  to  a model  which  was  not  included  in  the  provisioning. 
This  is  an  irrecoverable  error.  Later  calculations  will  become  invalid  because  the  repairables 
below  the  missing  model  will  be  faulty;  the  consumables  below  those  repairables  will  be 
even  worse;  and  the  resulting  outfitting  will  be  incorrect.  The  program  finds  all  missing 
models  via  application  codes  and  prints  them  out.  If  the  subroutine  is  reached,  but  no 
message  appears,  there  is  a “circular”  nesting;  e.g.,  A is  contained  in  B,  which  is  contained  in 
C,  which  is  contained  in  A,  etc.  There  is  no  way  the  program  can  solve  this  problem.  The 
program  terminates  with  9999  displayed  ui  either  the  missing  model  code  or  circular  nesting 
case.  Figure  B— 3 shows  the  throughput  for  the  data  conversion.  Program  logic  is  shown  in 
Figures  B— 4 and  B— 5,  which  are  followed  by  a complete  program  listing. 
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Figure  B—2.  SUBROUTINE  ARCALC 
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Figure  B—4.  (continued) 


5 


Subroutine 

ATCALC 

Begin 


Is  This 

/ a Highest  ^ 
Level  Repairable 
\^(  Father) 


Item  Type 
Code  “ ? 


Calculate  AAA, 
AAB,  AAD,  AAF 
AAC  and  OHLS 


Calculate  AAA, 
AAF,  AAC  and 
OHLS 


Calculate 
BRRQNT 
(If  Any) 


Write  JHOLD 
Model  Code, 
OHLS,  Qnt. 


JHOLD  ' 
(All  Repairables 
Get  Info. 

Put  Here)  / 


Write  IFINALTAPE 
FLi» 

NFINAL  = NFINAL 
+1 


/ IFINAL-  \ 

. ± 

( TAPE  \ 

1 

(Final  | 

\ Output  j 

- -n 

\ Tai«)  / 

• ^ 

Write  ((HOLD) 
Model  Code, 
OHLS,  Qnt. 
IHOLD  * (HOLD 
+1 


IHOLD 
(Reference 
Info,  for 
Processing 
Next  Level 


. .J 


Subroutine 

AECALC 

Begin 


Search  for 
Nonblank  AE 
Appcode 


Calculate 

AAB,AAD 


ITMTCD 


Search  for 
Nonblank  AE 
Appcode 


Found 

One? 


Calculate 

AAA^AB,AAD, 

AAF 


Search  for 
Nonblank  AE 
Appcode 


Calculate 

AAA,AAF 


Calculate 
DHLS  and 
RRRQNT 


Figure  B—6.  (continued) 
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Figure  li—H.  (continued) 
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Figure  B—S.  (continued) 
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INDX  = 1 


'MAX 


l.i'Ditlh  of  Iti'm 
Army  lo  b<'  SiirU-d 


Switch  Item 
(INDX)  and  Item 
(INDX  + 1) 


Switch 
Attributes  of 
INDX,  INDX  + 1 


Switch  ITM 
(INDX)  t ITM 
(INDX  + 1) 


Switch 

Attributes 


Figure  B—S.  (continued) 
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MFOh  V PROG 

FORTRAN  IV  COMPILATION  70C50  S 

c initial  kiin  pass 

MEAL  MRF 

LiMENSiON  RRR( t0>4) (MRF (10(4) (PCAPI 10(4) (RPF(IO) 

INTEGER  0NTSTS(C0MNC0(B(2(b  ) (FSCMIE) (SRCCO( ISUMPP(ONTAP(10(4) 

INTtSEh  APPCO(10(4(2) (MNTC0(2  I ( APPAC ( 10(2) ( APPA0( 10i2) (PRPL( 10 ) 
integer  FI1N(2) (FSC(NCC(MDLC0(2) (UNISSU(MULSCD(3) (COGSYM 
integer  FOOS(O013(E007(ZDD(DD12(2(I$AVE(a0) (B053(C004(C03S(0008 
INTEGER  OOI2(OOLLAR(R2B(1R(OOL(0029(B002 

integer  F0Ie(F00tA(  1APP(4I (9009(AE(AT(AR(AP(AC(AQ(001I(F001(0 
INTEGER  F00IBK(D013PK(C004BK 
INTEGER  8067 
uATA  BU67/4HB067/ 

UATa  FUUIBK/SHFOuI  /(OU13PK/SHO013  t^(C004BK/5HC004  / 
data  LbLKS/SH  /(B002/4)«002/ 

UATa  0009/4HOOC9/(0011/4Hn011/(F001/4HF001/(F003/4HF003/(AE/2HAE/( 

1 0013/4hOOl3/(E007/4HE007/(B053/4HB053/(C004/4HC004/(C035/4HC035/( 

2 □Uua/4HU008/(00l2/4HD012/(LBLK/4H  /(0029/4HD029/(Ful8/4HF018/( 

3 DUL/4h»»(S/(AT/2HAT/(AR/2HAR/(AP/2HAP/(AC/2HAC/(A0/2HAQ/(0/lH0/( 

4 IR/2H1R/(R2B/2H2R/(2/1HZ/(NYYT/4HNYYY/ 


C 

C initialize  I/O  UMTS 

c 

iour=2 

1TAPE=6 

IHOLOsO 

UNP=1 

Il'tFNSse 

oH0L0=4 

1NP=9 

IFNOUTsb 

C number  of  FIInS(COnSUMABLESaREPAIRABLES)  IS  NFIN 
NMOlSsI 

nfinso 
ISTuPsO 
CALL  OPNCOS 
1 CONTINUE 
i CONTINUE 


1 


i 


REalNO  INP 
CALL  4RTF1N 


HCatIND  INP 


I 


I 


c 

C JHuLb  IS  A SCRATCH  AREA  ON  DRUM  tO  CHARACTERS  LONG 
C 

KEalNi)  JHOLO 

REAO(1NP>1005)  (ISAVE(I)>Isl«ail 
REAb ( IHOLO . 1001 ) COGSTM. NCC •FIINIl>tFllN(2).ICKY. JDCNT 
C 

C TnE  LuOP  terminates  WITH  THE  FIRST  CARD  BEING  4 DOLLAR  SIGNS 
C 

1F<FIIN(2)-D0LI  lSni>909>lS01 
IbOl  CONTINUE 
C 

C INITIALIZE  ARRAYS  AND  VARIABLES 

C 

uO  IblA  UltlO 
UO  1614  J=l>2 
APPaQ(1>J)=LBLK 
APPaCII.JIsLBLK 
lbl4  CONTINUE 


lol3  CONTINUE 

UO  2001  I=l>10 
uO  2001  Jsl.4 
UO  2001  Ksl.2 
2001  APPCDdtJiKirLbLK 
uO  a I=l>10 
e<PF(ll=0 
UO  a j=i>4 

aNTAP(I.J)=0  J 

RRR(1> JlsO 
HRF|1>J)=0 
PCAP(IfJ)sl.O 
a CONTINUE 
UO  9 I=1>S 
uO  9 Jsl>2 
V U<U>I)=LBLK 
M0LC0(1I=LBLK 
M0LC0(2)sLBLK 
FSCMCDsLBLK 
FSCMI2)sLBLK 


I 

1 

T 


MNTCD(1)=LBLK 

MNTC0(2)=LBLK 

SRCCOsLBtK 

comnco=lblk 

nEROUT=,02 

LCRTCOsLBLKS 

PU=U 

ISOMPP=0 

COS1=0 

HUt.&CO(X)=LBLK 

HUCSC0(2)=LaLK 

RUt.SC0(3)=LBLK 

INSURsb 

UNlSSusO 

ITMTCO=t> 

C 

c oun-t  namt  to  real  a new  carp 
c 

60  TO  X03 
102  CONTINUE 


C READ  A NEW  CARD  FROM  THE  INPUT  FILE 
C 

READ! INH> 1005)  < ISAVEt I ) > Isl>21 ) 

IF(1SaVE(2>-FI1N(1) ) 13T3il416tl373 

1416  IF<ISAVE(3)-FI1N(2))  1373. 1417t 1373 
1373  WRITE (lOUT.  1375)  FUN 

1375  FORHAT(1H0.5HF1In  . A3> A4. IX. 12HHAS  MO  0009S  ) 

60  TO  2 

1417  CONTINUE 
JDENTslSAVEtb) 

C 

c Test  uen 
c 

103  continue 

IP(UOENT-B002)  105.105*107 
105  HEAu(IHOL0.106b)  LCRTCD 
GO  TO  102 


107  CONTINUE 

1F<UOENT-B053)  110.120.130 


Itu  KEAUlIhOLOt 10041 
(lO  TO  102 

12u  He*U(!H0LO>1012) 


Pt 


I 


1 


i 

f 

i 

r 

f 


COST 

bO  TO  1U2 

13u  IFtJOENT-COOtl  UO.lSOtlOn 
14U  CONTINUE 

1F(JUENT-U067)  Iu2tt42>102 
14^  CONTINUE 

KEAU(tHOLO>10l4)  RULIiCD 
bO  TO  102 
ISu  CONTINUE 

KEAU(IH0L0>Ib2)  JOfNT 
Ibi!  fOHMATdSX.ASI 

lF(JUENT-Cau4BK)  102>lbb>102 
Ibb  CONTII^Ub 

KEAu(II<OLD>1013)  (l<(l>l)il:l>5l 
bO  TO  1U2 

16U  IF(JUENT-C03b)  I70.ieQ>18F 
17u  HEAudliOLOdOlbl  UNlbSU 
GO  TO  102 


■ i I 


■'4 


/j 


lAb  KEAudHOLUtlOlb)  FSCMd)>FSCM(2).(H(2,I)>l  = US  ) 

bO  TO  102 

182  1F( jOENT-DOOb)  la4>186d8R 

184  NEAUdHOLUdOlb)  FSC 

bO  10  102 

18b  HEAUdHOLO.  10171  M0LC0d)>M0LC0(2l 

GO  TO  102 

c 

C IF  THi.  ULN  is  cess  Than  U012  it  must  hE  oonot  hence  branch  to  next  sect 
c 

18b  1F(J0LI<T>0012I  2uO>l92>194 

192  HEAudHOLUdOlb)  SRCCO 

uO  TO  102 

194  IF(J0ENT-UU13I  I96d96d98 

19b  BEAU (lHbLO> 1013)  COHNCO 
GO  TO  102 

19b  i<EAudMOLOtl003l  bEROUT 
bO  TO  102 


200  CONTINUE 

lAHlslSAVEIS) 


UP2=lSAVEI9t 

IDtNTsISAVE(ll) 

1TEST=1SAVEI13I 

1U02  F0KMAT(19X.AA»A9t3X>A4>lXtA2) 

C 

c all  The  0009-s  follow,  first  among  them  are  0029-5 
c 

C FXNO  mLL  0029:S 

c 

C lARP  IS  THE  INDEX  ARRAT  FOR  THE  APPCOOE  ARRAT 

c 

lAPPACsO 
IAPHAOsO 
UO  1201  1=1.4 
1201  lAPPCDsO 
C 

C UOOP  bACK  TO  HERE  TO  LOOK  FOR  NEXT  3029 
C 

1203  1F(IOENT-0029)  1250.1204.1250 
C 


C there  are  t>  APPCOOES  ALLOWED.  CHECK  THEM  In  TURN 
C 

1204  1F(ITEST-AEI12CI6. 1205. 1206 
120b  N=1 

oO  10  1212 

120b  IF(lTEST-AT)  1206. 1207. l.'OS 
1207  N=2 

GO  10  1212 

1206  IFtlTEST-ARI  l2lu. 1209. 1210 

1209  l.=3 

GO  10  1212 

1210  1F(1TEST-AP>  121b. 121 1 . 1215 

1211  N34 

1212  1APP(N)=1APP(NI*1 
IF(|APP<N>-11I  1219.1202.1202 

1213  KSIaPPINI 
APPCOlK.N.llsUPl 
APPC0IA.N.21SIAP2 
GO  TO  1202 

121b  IFIlTEST-AOl  121a. 1216. 1210 


1216  UPPASsUPPAO*! 
iFdAPPAO'lOl  121T.|21T>1202 

1217  APPAOdAPPAOtl)  stAPl 
APP  AO  d APPAO  • 2 1 = I AP? 
bU  TO  1202 

121b  lFdTe>>T-AC)  1202d?19d202 
121V  IAPPACsIAPPaCpI 

lFdAPPAC-11)  1220,]202>1202 
1220  APPACdAPPACtl)  = lAPl 
APPaC  d APP AC  • 2 ) s 1 AP? 

1202  CONTlNUt 
C 

C OCT  A Ntk  CARO 
C 

hCAjdNP.lOOS)  (ISAVEd)dsl,21) 

C 

C CHECK  IF  IT  Ib  THE  SAME  FUN 

C 

C CHCCK  IF  END  OF  HECORr 

1FUSavE(3)-D0LI  12»7>b00il2it7 


12‘»7  IAP1  = 1SAVE(A) 
lAPc=lSAVE(9) 
lOENTslSAVEdd 
ITESTsISAVEdi) 
bO  TO  1203 
C 

C IF  NUT  SAME  FUN  NO  NFEO  TO  PROCESS  NON-OOcSS  BECAUSE  THERE  NONE 

C 

C 

C PROCESS  NON-D029  CAROS  WITH  OEN  OF  3009  ’ 

C 

12SU  CONTINUE 

10EnT31SAVC(6) 

IAPi:ISAVE(8t 

IAP2=1SAVE(9) 

JDEHTslSAVEdl) 

C 

C CHECK  FOR  CHAN6E  OF  FI IN 
C 


J 

! 


i 

.J 

:] 


J 


c 


C SEARCH  FOR  APPCOOE  MATCH  MITH  ALREADY  PROCESSED  D029 
C 


402  DO  410  IAP:li4 
KSIAPPCIAPI 
IF(KI  410>410*403 

403  UO  409  J=1>K 

IF(APPCD(JiIAP>1)-IAP1)  409i404f409 

404  1F(aPPCO(J«IAP>2)-IAP2)  409tS40t409 

409  CONTINUE 

410  CONTINUE 

42U  IF(IAPPAO)  430>430t422 
422  CONTINUC 

IF(JOENT-F003)  430>511>43n 

511  DO  514  UltlAPPAU 

IFdAPl  -APPAG(Ifl))  514>512>514 

512  1F(1AP2  -APPAO(l>2) )S14>Sl3tS14 

513  REAOd  HOLD  •10941  RPF  d ) 

1094  K0KMAT(34X>F3.2> 

00  TO  560 

514  CONTINUE 


00  TO  560 

54U  IF(JOENT>D011)  54S>542>545 
542  HEAOdHOLO>1065)  ONTaP(J>IAP) 

oO  TO  560 

545  IF(JOENT-FOOl)  550,547»550 
547  HEAUdH0L0>546)  JOENT 
54e  F0HMAT(29X.A5I 

IF(JOCNT-FOOIBK)  56!'<3545>580 
3545  CONTINUE 

HEAudHOLO>103O>  MRF(JdAP) 

00  TO  560 

55U  IF(JOCNT>F003)  555>5S2>555 
552  REAOdHOL0tl034)  RRRTJ.IAPI 

00  TO  560 

555  lF(JOeNT-0013)  557«556»5S7 
55b  RCAudH0LD>546)  JOENT 

lF(jOeNT-O013eKI  S8n«3556>5S0 
355b  CONTINUC 

RCAjdHOLO>1031)  MNTCOT 1 > •MNTCU<2) 
00  TO  580 


43u  IFdAPHAO  STOtSTO.MT 
S57  IFIJOENT-EOOTI  ST0>SSS*ST0 

55b  UO  565  IsliIAPPAC  | 

IFdAPl  -APPAC(l>ll»565>55«tS65 

55V  IFIIAPZ  -APPACClt2>>565iS60»565  j 

56U  REAu(tHOLO> 10391  KTESTi IAA> UC  | 

IF(KTEST-Z)  563>S61>563 

561  lN5uR=lNSURtlAA*lAC  i 

60  10  560 

565  1SUHPP=1SUMPP*IAA*|AC 
60  ro  560 
565  CONTINUE 

57u  tF<JOCNT-F016)  560>S71>5Sn  I 

571  HEAU(IHUUO>1034)  PCAPlJilAPT 
580  CONTINUE 
C 

C bET  NEM  CARO  FOR  PROCESSING 
t 

REAUdNP.lOOS)  dSAVEd>>Isl>21l  I 


C CHECK  FOR  END  OF  RECORC 
C 

lFdSAVE(9)-00L>  1250i600tl250 
sOU  CONdNUE 
c 

C find  the  maintenance  ITEM  TYPE  CODE  FOR  THIS  FUN 

c 

UU12=2 

lFIMNTkOd>-l>bLK|  6?7>652>62T 
627  IFtF.NTCU(2)-LBLK)  628 >652 >626  ’ 

62b  CONTINUE 

IFICUMNCO-LBCKI  630 >652 >630 
o3u  CONdNUE 

U012S1 

1TL5T1SMNTC0I2) 

IFdTE5TI-Z)  b32>691>692 
631  2UU=1 

60  TO  655 


- 

I 

'1 

I 

1 ; 

‘1 
- 4 

.1 


632  IFdTE5Tl-0l  696>633>636 

633  2DUS2 


ao  TO  640 


634  ZDOs3 

64U  |F(CDMNC0-DI  642.645*642 
642  0012=2 

64b  60  TO  (651. 652. 654). 200 

651  ITMTC0=0012 
60  TO  660 

652  1TMTC0=3*0012 
60  TO  660 

654  X rMrC0=00l2*3  ^5b  I TtST2=MNTCD(  1 » 

66U  CONTINUE  * ***‘° IF(lTEST2-0)  642.645.642 

C CHECK  TO  bEE  IF  REPAIRABLE  HAS  MODEL  CODE 

1300  lF(M0LC0(l)-LeLK)  1305.1301.1305 

1301  IF(M0LC0(2)-LBLK)  1305.1302*1305 
C NO  MODEL  CODE- IS  THIS  A CONSUMABLE 

1302  IF(RULSC0(3)-NtYY)  130b. 1305. 1303 

1303  HRirE(IOUT.1304)  FlIN(l) .FIIN(2) 

1304  FORMAT(1H0.10X.4HFIIN.2X.A4.A3.4SHHaS  NO  MODEL  CODE  AND  HAS  NOT  uE 

lEN  PROCESSED  > 

lSTuPslSTOP+1 


uO  TO  2 
I 30b  continue 

IF  (ITMTCO-6)  1307.1306.1306 
130b  continue 

»RirE(I0UT.1309)  FIINI1).F1JN(2> 

1309  FORMAT (1H0.10X.5HFIIN  A3.A4.26H  IS  AN  UNKNOWN  ITEM  TYPE  ) 

60  TO  2 
1307  continue 
C 

C OUTPUT  entire  FIIN  RECORD.  UNFORMATTED 
C 

WRITE (IFNOUT)  FI1N.ITMTCD.FSC.NCC.FSCM.MDLC0.UNISSU.RULSC0.C06STM. 

1 COST . PL . WEROUT . APPCO . MRF . RRR . PC  AP . MNTCO  » ONTAP . RPF . APPAC . APPAB. 

2 COMNCO . b r SRCCD . ISUMPP . INSUR . LCRTCD 
NF1NSNFIN41 

C 

C 

c branch  back  TO  Main  loop 
c 


60  TO  1 


rrtrr 


999  CONTlNUe 

MRlTeilOUTtlOai)  NFtN. nmols 
LNUFILL  IFNOUT 

kHITEdNFNStiail)  NFiNtNMOLS 
iSll  F0HMAT(2I10) 

KCMINO  INFNS 
IF(ISTOP)  1274.1274,1575 
1575  CONTINUE 

■RiTEdOUT.  129J>  ISTOP 

129J  FORMAT (IHl.ltiHjOO  ARORTEO  UUE  TO  .15.20H  MISSING  MODEL  COOES 
i274  CONTINUE 

1001  F0RMAT(2A2.A3.A4,A2,A4> 

1002  F0RMATd3X.A4> 
lOOJ  F0hMATd9X.F3.2) 

1004  format ( X.F3.1) 

1005  F0HMAT(A4.A3.A4.2A1 .A4. A2. A4.2A3, A4, A1 • A2. 11A4) 

1012  F0HMATd9X.F9.2l 

1013  F0RHATd9X.  5A4) 

1014  F0RMATd9X.A4.A2.A4) 

1015  F0RMAT(19X.A2) 


lOlo  format  d9X.A4.Al.  5A4) 

1017  format (19X.A4.A3) 

1021  FOHMATdX.Al) 

1030  F0RMAT(34X.Fb.3) 

1031  F0RmAT(34X.2A1) 

1033  F0hmaT(25X.A1.14X.I3.6X.I3) 

1034  F0RMAT(34X.F3.2) 

104U  format d9X.A4.A3.3X.A4. IX. A2) 

1041  F0RMATdlA4.6A2.Al.A4.Al.2A2.  2A4.A1.A4) 

1046  F0MMAT(A5.A4) 

1050  FORMATdHl,  (5X.A4.A3.4X.I5.3X.6F10.2.2X.A4/) ) 
1052  format  111(0. 3X.A4. A3. 10X.3(F  15. 5. 5X1. A2) 

1060  FORKAT(2X.dOX.2A4.2X.l6.10X.4F15.S/)) 

1065  F0rmaT(34X.I6) 

1066  F0rmAT(19X.A5) 

1081  FOHMATdH1.10X.5HNFIN:.I10.3X.THMOUELSs.llO| 
STOP 
ENO 
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000010  IDENTIFICATION  DIVISION. 

PRO«ftAH-ID.  ARINC  OATa  CONVERSION  PROGRAM. 


000030 

000040 

000050 

000060 

00006S 

000070 

000075 


ENVIRONMENT  DIVISION. 
configuration  SECTION. 
SOURCE-COMPUTER.  UNIVaC-492. 
OBJECT-COMPUTER.  UNIVaC-492. 
INPUT-OUTPUT  SECTION. 

file-control. 

SELECT  INCAROS  ASSIGN  TO  F TAPE. 
select  OUT-DATA  assign  to  I DRUM. 

data  division. 


•ir 

FILE  section. 

FD 

INCAROS 

LABEL  RECORDS  ARE  OMITTED 

m m 

data  record  is  cos. 

01 

COS. 

m 

03  IN-HEC. 

05  FILLER 

PICTURE 

X(4>. 

05  REC-ID 

PICTURE 

X(7). 

m 

05  FILLER 

PICTURE 

X(2I. 

OS  MAJ-ID 

PICTURE 

X(5). 

• 

05  FILLER 

PICTURE 

X(ll). 

05  MIN-IO 

PICTURE 

X(4i. 

05  FILLER 

PICTURE 

X|47). 

m 

03  FILLER 

PICTURE 

X(55). 

FO 

OUT-OATA 

label  records  are  omitted 

ACCESS  mode  is  sequential 

data  record  is  out-rec 

• 

01 

OUT-REC. 

03  TpL-LINE 

PICTURE 

X(80l 

03  FILLER 

PICTURE 

X(55). 

• 

MORKING-STORAGE  SECTION. 

77  REC-ID-HLD 

PICTURE 

X(7) 

• 

77  IPY 

PICTURE 

999 

VALUE  SPACES. 


VALUE  SPACES. 
VALUE  ZEROS. 


77  inx 

PICTURE  999 

VALUE  ZEROS. 

77  inz 

PICTURE  999 

value  zeros. 

01 

DOLLAR-LINE. 

03  FILLER 

PICTURE  X(10) 

value  •tsssstssss* 

03  FILLER 

PICTURE  X(10) 

value  'SSSSStSSSS* 

03  FILLER 

PICTURE  X(10) 

VALUE  •SGGStSSSSG' 

03  FILLER 

PICTURE  X(IO) 

VALUE  'SGSttGISSS' 

• • 

03  FILLER 

PICTURE  XdOl 

VALUE  'StSSSS****' 

03  FILLER 

PICTURE  X»10» 

03  FILLER 

PICTURE  X(10> 

• - 

03  FILLER 

PICTURE  X(10) 

value  •«>S»CtSGS' 

77  CHK-SVT 

PICTURE  9 

VALUE  ZEROS. 

77  DOLLAR-SpT 

PICTURE  9 

VALUE  ZEROS. 

77  SPACER 

PICTURE  X(7> 

VALUE  SPACES. 

01 

MAJ-ID-TBL. 

• m 

03  FILLER 

PICTURE  X(5I 

VALUE  *0009  '. 

03  filler 

PICTURE  X(5) 

VALUE  'BObT  •. 

03  FILLER 

PICTURE  X(5) 

VALUE  >0042  •. 

03  FILLER 

PICTURE  X(5I 

VALUE  'COOS  '. 

03  FILLER 

PICTURE  X(5) 

VALUE  *8053  •. 

03  FILLER 

PICTURE  X<51 

VALUE  'BOSS  '. 

03  FILLER 

PICTURE  X(5) 

VALUE  *6002  •. 

03  FILLER 

PICTURE  X(S) 

VALUE  '0012  '. 

m 

03  FILLER 

PICTURE  X(5I 

VALUE  'COOA  •. 

03  FILLER 

PICTURE  X(5) 

VALUE  'BOIO  •. 

03  FILLER 

PICTURE  X(5) 

VALUE  •D013C'. 

* 

03  FILLER 

PICTURE  X(5) 

VALUE  *0035  •. 

03  FILLER 

PICTURE  X(5) 

VALUE  >0005  '. 

• 

03  FILLER 

PICTURE  X<5I 

VALUE  'FOOT  •. 

01 

DUMMY  REDEFINES  MAJ-IO-TBL. 

03  MAJ 

PICTURE  X(5> 

OCCURS  14  TIMES. 

77  INDX 

PICTURE  99 

VALUE  ZEROS. 

i 

77  RULESCOOE 

PICTURE  9 

value  ZEROS. 

77  EROR  PICTURE 

X(ia)  VALUE  * has  no  AULESCOOCb*# 

01 

b-p-tbl. 

03  B-P  OCCURS  SO  TIMES. 

05  FILLER 

PICTURE  XI4I. 

05  B-P-IO 

PICTURE  X(7). 

,■ 

05  FILLER 

PICTURE  XI69) 

« 

01 

D009-TBL. 

01 


Oi  0fl09-REC  OCCURS 

150  times. 

05  FILLER 

picture 

X(4). 

05  0009-REC-ID 

PICTURE 

X(7). 

05  FILLER 

PICTURE 

X(2). 

OS  0009-MAJ-I0 

PICTURE 

X(5). 

05  FILLER 

PICTURE 

X(ll). 

OS  D009-MIN-IO 

picture 

X(«). 

05  FILLER 

PICTURE 

X(i»T>. 

holo-rec. 

00  FILLER 

PICTURE 

X(<«) 

VALUE 

spaces 

OS  HOLD- In 

PICTURE 

X(7) 

VALUE 

spaces, 

OS  filler 

PICTURE 

X(69) 

VALUE 

SPACES 

D029-TnL. 

OS  0029-REC  OCCURS 

50  times. 

OS  FILLER 

picture 

X(«) . 

OS  0029-REC-IO 

PICTURE 

X(7). 

05  FILLER 

PICTURE 

X(2). 

05  O029-MAJ-I0 

PICTURE 

X(5>. 

05  FILLER 

PICTURE 

X(ll). 

05  D0Z9-MIN-IO 

PICTURE 

X(u). 

05  FILLER 

picture 

X(i*7). 

PROceuUO^  DIVISION. 

«RU  IN. 

OPEN  OUTPUT  0UT-0»T*. 

ENTER  FIXTbL.  WITH  OUT-DATA. 

IF  dollar-srt  equal  to  1 
CLOSE  INCAROS 
GO  TO  RTN. 

NXT-FIN. 

MOVE  ZEROS  TO  RULESCOUE. 

MOVE  ZEROS  TO  INDX. 

MOVE  ZEROS  TO  IDT. 

MOVE  ZEROS  TO  IDZ. 

MOVE  HOLU-RtC  TO  IN-RtC. 

HOVE  HOLU-ID  TO  REC-ID-HLD. 

GO  TO  anal, 
begin. 

READ  INCAROS  AT  END  GO  TO  EOF -OTA. 
IF  RFC-IO  NOT  equal  TO  REC-IO-ULD 
GO  TO  SAVE-REC. 


ANAL. 

MOVE  ZEROS  TO  CHK-SVT. 

PERFORM  check-major-id  VARYING  IDX  FROM  1 BY  1 UNTIL 
inx  EQUAL  TO  15. 

IF  CHK-SvT  EQUAL  TO  ZEROS 

GO  TO  BEGIN.  I 

IF  MAJ-ID  FQUAL  to  <0009  • AND  MIN-ID  EQUAL  TO  'DOZO*  I 

ADD  1 TO  IDZ  - ■ 

MOVE  IN-REC  TO  D029-REC  (IDZ) 

GO  TO  BEGIN. 

IF  MAJ-ID  EQUAL  TO  <0009  • 

ADD  1 TC  IDY 

MOVE  IN-REC  TO  0009-REC  (IDY) 

GO  TO  begin, 
add  1 TO  INOX. 

MOVE  IN-REC  TO  B-P  (INDX). 

IF  MAJ-ID  equal  to  MAJ  (2)  > 

MOVE  1 TO  RULESCODE. 

GO  TO  begin.  ‘ ^ 

CHECK-MAJOR-IO. 

IF  MAJ-lD  EQUAL  TO  MAJ  (IDX) 

MOVE  1 TO  CHK-SMT. 

SAVE-REC. 

MOVE  IN-REC  TO  HOLD-REC. 

IF  RULESCODE  NOT  EQUAL  TO  ZEROS 
GO  TO  NXT-8-P. 

IF  INDX  NOT  EQUAL  TO  ZEROS  ) 

display  B-P-ID  (l)»  EROR 

GO  TO  NXT-FIN.  I 

IF  IDZ  NOT  EQUAL  TO  ZEROS 

display  D029-REC-IO  (!)•  EROR 
GO  TO  NXT-FIN. 

IF  tOY  NOT  equal  TO  ZEROS  j 

display  0009-REC-ID  (!)•  EROR 
GO  TO  NXT-FIN. 

HXT-b-P. 

IF  INOX  equal  to  ZENO 

SO  TO  0029-OUT.  j 

MOVE  b-P  (INDX)  TO  TBL-LINE.  | 

■RITE  OUT-REC.  . I 


1 


subtract  1 FROM  INOX. 

60  TO  NXT'B'P. 

D029-OUT. 

IF  IDZ  eOUAk  TO  ZEROS 
GO  TO  O009-OUT. 

MOVE  0029-ReC  <tOZ)  TO  TbL-LINE. 

WHITE  OUT-REC. 

Subtract  i from  ioz. 

GO  TO  D029-OUT. 

U009-OUT.  < 

IF  lOT  eOUAL  TO  ZEROS 
GO  TO  RTN. 

MOVE  0009-REC  (lOT)  TO  TbL-LINE. 

WRITE  OUT-REC. 
subtract  1 FROM  lot. 

GO  TO  O009-OUT. 

RTN. 

MOVE  DOLL AR-L INF.  TO  TBL-LINE. 

WRITE  OUT-REC. 

WHITE  OUT-REC. 

WRITE  OUT-REC. 

CLOSE  out-data. 

ENTER  return-line  WRTFIN. 
enter  COBOL  WRTFIH. 

OPNCOS. 

OPEN  INPUT  INCARDS.  i 

ENTER  FIXTrL#  with  INCAROS. 

OPEN  OUTPUT  OUT-OATA. 
enter  FIXTDLf  WITH  OUT-DATA. 

READ  INCAROS  AT  END  GO  TO  EOF-DTA. 

READ  iNCARDS  AT  END  GO  TO  EOF-DTA. 

MOVE  IN-REC  TO  HOLD-REC. 

MOVE  HOLO-10  TO  REC-IO-HLd. 

MOVE  IN-REC  TO  TBL-LINE. 

WRITE  OUT-REC. 

CLOSE  OUT-DATA. 

ENTER  RETURN-LINE  OPNCDS, 

ENTER  COBOL  OPNCDS. 

EOF-OTA. 

MOVE  1 TO  DOLLAR-SWT. 


COoOl  compilation  COMPLETED 


GO  TO  0029-OUT. 


TIME-00;00 


MEND 


NbPURT  R PROG20 


eHKOR  cc  loc 

FFJKb 

TtYYt  Mil 

ML  CARO 

label 

statement 

• m 

EOeF*FIXT0L 

00  00000 

olOOO 

00000 

FIXTbL 

ENTRY 

ououl 

12710 

00000 

00 

ENT*B7»L(5-ll 

“ - 

0U002 

12617 

00000 

ENT*B6*L(B7) 

00003 

11000 

00322 

LP2 

ENT*A*322 

UU004 

54026 

00005 

RSE*SET*U(R6+5) 

OUOOb 

10000 

77766 

ENT*0*77766 

0U006 

44026 

00005 

HPL*LP*U(b67S) 

- • 

00007 

10000 

00014 

00 

PUT*SR1*U(R6711D) 

00010 

14026 

00013 

00011 

10000 

00032 

00 

PUT*SR2*L(R6711DI 

• • 

00012 

14016 

00013 

0u013 

61010 

00000 

00 

EXIT 

00014 

61000 

00000 

SRI 

ENTRY 

00015 

27400 

00124 

SUn*O*124*0ZER0 

00016 

61000 

00021 

00 

JP*SR1A 

• 

OOOIT 

11000 

00000 

CL«A 

00020 

61010 

00014 

00 

EXIT 

00021 

10000 

00003 

SRIA 

RMSG  BFH  ERROR 

• 

00022 

12700 

00024 

00 

00023 

61000 

00027 

00 

« • 

00024 

03223 

01405 

00025 

05071 

31505 

00026 

12272 

72427 

0U027 

65020 

00136 

00030 

12000 

20406 

00031 

61010 

00014 

00 

EXIT 

• 

00032 

61000 

00000 

SR2 

ENTRY 

00033 

11000 

00000 

CL*A 

• 

00034 

61010 

00032 

00 

EXIT 

SM  70050 


WENJ 

WLOAP  NMY  PROGtDCPASSl 

•cr^u 


.J 


HI- OK  y PROG 


FOKThAN  IV  compilation  70222  Sj 

c MAIN  overhaul  calculation  PROSRAM 

COMMON  FIINtFSC>NCC>M0LCD>UNISSU.RULSC0.C06STM.APPCD>MNTC0.a< 

1 APPAC>APPAO>PNPL.eNTSrS>COMNCO>FSCM,SRCCO>ISUMPP>ONTAP>NUNaER> 

2 RHH.MHF,PCAP»RPFiJM0LC0.JC0»INP.I0UT,IH0LD*IM0LTP»IFNSTP,1FINAL, 

4 JT  aP2R  . 1 tapir  • I T AP2R  • Nf<OLD  tNlR  • N2R  • NF  IN  .NMOLS . LbLK  . AA  A > AAB>  AAC  • 

5 NFINS.NYYr.  INSUR.AAOiAAE.AAF.OHLS.RRRONT. ARPF.AMRF.APCAP. lOT. 
b NLhOUT  1 1 TMTCD • cost . PL . SYSALC i OALC . TPP, T . NF INAL > NJ2 . JHOLDt LCRTCO 

lNTC6EKFIIN(2)>FSC>NCC>MOLCD(2)tUNI SSU. RULSCO ( 3 1 > COOSYM 
INTbGCR  APPCO(10>Ht2l >HNTC0(2)  > APPAC ( 10.2) .APPA0( 10.21 tPRPL( 10 1 

INTLGER  QNTSYS.CUMNCD.B(2>  5).FSCMI2I.SRCCO.ISUMPP.ONTAP(10.«) 

KEAL  MKF. number 

INTEGER  JMDLCU 12.1 000 ) .JCn (2.10) . lOT(lOOO) 

DIMENSION  number ( 1000 ) .RRR( 10.4) .MRF( 10.4) .PCAP( 10.4) .RPF(IO) 

C hE=1>  ATs2.  AR=3.  AP=4 
CALL  KdT 
«R1TE(1uuT.1052) 

C IHIS  LOOP  READ  ALL  FIINS  AND  MATCHES  THE  QUANTITY  TO  THE  FUN 
UO  19b  IJKLsl.NFINS 
CALL  GETFIN 


c IF  This  item  is  a consumable,  just  khite  it  in  the  output  file 

IF(hULSCD(3)-NYYY)  E2.62.7S 

62  continue 

aRllL(ITAPlR)  E 1 IN. ITMTCO.FSC.NCC tFSCM.MOLCO.UNISSU.RULSCO.COGSYM. 

1 COST . PL . VEHOUT . APPCO » MRF . RRR . PC  AP . MNTCD . ONTAP . RPF . 

2 ONTSYS.COMNCn.AAA.AAB.AAC.AAO.AAE.AAF.B.SRCCO.ISUMPP. 
i AMRF . aPCAP. ARPF . JCO. INSUR.LCRTCO 

NIRSNIR^I 
GO  (0  19b 
7b  continue 

C CALCULATE  THE  AT  APPCOOES  AND  OUTPUT  THE  AT  ITEMS  TO  IHOLO 
CALL  ATCALC 

c Etio  The  at  loop 
19b  CONflNUE 
bb  CONTINUE 

IF(NHOLU)  616.6l6>615 
61b  CONTINUE 

c KEMiw  and  Snitch  units 

RENINO  IHOLO 

remind  ITAP2R 


I 

I 

I 


REttINO  JTAP2R 
IT:1T*P2R 
ITAP2H=JT*PiR 
JTAP2RSIT 

C tHiS  IS  THE  main  AR  NESTIN6  LOOP 
DO  58  IsliNHOLD 

RE AD  < I HOLD  >10101  JMOLCD (liII>JM0LC0(2)I)>  NUMBER ( I ) 1 1 OT ( I ) 
So  CONTINUE 
NMULSsNHOLD 

remind  IHOLD 

NHOLOsO 

C SuRT  THE  PREVIOUSLT  PROCESSED  APPCODES 
CALL  SORT! JMOLC D > NMOLS >NUMBER>ieT) 
n2R:NJ2 
NJ2=0 

DO  60  JKL=1>N2R 
CALL  ARCALC 
6U  CONTINUE 
ole  CONTINUE 

IP(NJ2)  79>79>95I 


951  IF(NHOLUI  76>76>55 

c shoulunt  ever  get  here— means  circular  nesting  or  something  similar 

7b  oRITEdOUTtlllb) 

1316  FORMATIIHO>4HOOPS> 

CALL  AREROR 
79  CONTINUE 

remind  ITAPIR 
remind  jholo 
C NOM  The  consumables 

NMDLSzNF INAL 
DO  700  IKLsltNFINAL 

HEAU  ( JHOLO  >1010)  JMDLCU  ( I > I KL ) > JMOLCD  ( 2 > IKL ) > NUMBER  (IKL)>IOT(IKL) 
700  CONTINUE 

CALL  SORT(JMDLCO>NMOLS>NUM6ER>IOT) 

DO  bOO  IKL:1>N1R 
CALL  APCALC 
aOO  CONTINUE 

lOIU  F0HMAT(A4>A3>F15.5>I10) 

1050  FONMATI10X>A<«>A3>F15.5) 

1051  FOHMATI/(20X>A«>A3>I10>) 


1052  FOnhAT(IHI) 

mR1TE(I0UT>1313)  NFINAL 
1313  F0hMAT(1H1>6HNF1NAL>  1101 

remind  4 

MRITC(4I  NFINAL 

STOP 

END 


iCI4u 


BfOK  f I'RObV 


fortran  IV  COMPILATION  T0212  ij 

bUbROUTINE  AREHOR 

COMMON  F I IN . FSC • NCC . HOLCO • UNI SSU t RULSCD • COGSYM , APPCO > MNTCO • B > 

1 AFPAC>APPAaiPRPL>ONTSrStCOMNcO>FSCM«SRCCO>ISUMPP>ONTAPtNUMBER> 

2 RKR.MRFtPCAP.RPFi JMOLtO . JCO « I NP . I OUT . I HOLD • I MOLTP . I FNSTP . I F I NAL . 

H JTaP2R.ITAPIR.ITAP2R.Nh0L0.N1R.N2R.NFIN.NM0LS.L0LK.AAA.AA8.AAC. 

!>  NFINS.NYYY.  INSUR.AAO.AAE.AAF.OHLS.RRRONT.ARPF.AMRF.APCAP.1QT. 
b NLKOUT . I THTCO . COST . PL . SYSALC . OALC . TPP . T . NF INAL . NJ2 . JHOLU . LCRTCO 

IUIlGER  FIIN(2).FSC.NCC.MOLCO(2) .UNISSU. RULSCD (3) .COGSYM 
integer  aPPCU(10.4.2).MnTC0(2)  .APPAC(ia.2).APPAO(10.2).PRPL(10> 

integer  QNTSYS.CoMNCD.bl2.  S) .FSCM(2) .SRCCD. ISUMPP.QNTAPI 10.4 ) 

REAL  MKF.NUMbLF 

OlMbNSION  NUMBER(1000).RRR(10.4>.MRF(10.4).PCAP(10.4).RPF(iai 
INTbOER  JHDLCO<2.1onO>.JCO(2.1U).IOT(lOaoi 
KE«1NU  0TAP2R 
JO  tiOO  1 =1.NJ2 

RLAOI JTAP2R)  FUN.  ITmTCO.FSC. NCC. FSCM.MOLCD. UNISSU. RULSCD. COGSYM. 

1 LOS  T . PL . WEROO  T . APPCD . MRF , RRR , PC  AP . MNTCO . ONT AP . RPF . APPAC . APPAO . 

2 O.iLS.uuTSYS.COMNCD.AAA.AAB.AAC.AAO.AAE.AAF.B.SRCCD.ISUMPP. 

’ AMRF . aPCAP . AhPF . JCO . INSUR . LCRTCO 

I - ^ 


JMOLCO ( 1 . 11 sMOLCU ( 1 ) 

JMOLCO ( 2.1) =MOLCU ( 2 ) 
hOo  CONTINUE 

REmINu  jTaP2R 

CALL  S0KT(JH0LC0.Nj2  .NUMbER.IOT) 

00  SOO  JKL51.NJ2 

RLAOI JTAP2R)  F 1 IN. ITMTCD. FSC. NCC. FSCM.MOLCO. UNISSU. RULSCD. COGSYM. 

1 COST. PL. REROUT. APPCO. MRF. RRR. PCAP. MNTCO. ONTaP. RPF. APPAC. APPAO. 

2 OiiLS.QNTSYS.CDMNCD.AAA.AAB.AAC.AAO.AAE.AAF.B.SRCCO.ISUMPP. 

3 AMRF . aPCAP . AhPF . JCO . INSUR . LCRTCO 
40s  OO  40b  1=1.10 

IF ( APPCO (1.3.1 1 'LBEK)  407.406.407 
40b  IF(APPC0(1.3.2)<LBLK)  407.40S.407 

407  CALL  S£ARCH(JM0LC0.NJ2  . aPPCD( I .3. 1 ) . APPCDI 1 .3.2) . INOX. lERROR) 
IFUERRuR)  41S.4US.41S 
4lS  CONTINUE 

«R1TC<10UT.1614)  fun  .APPCDI  I . 3.  1)  > APPCD(  1 .3.2) 

1614  FONMATUHOiSHFUN  .A3tA4.20H  HAS  AN  APPCODC  TO  . A4iA3. 

1 3SH  RHlCH  IS  NOT  IN  THE  DATA  PACKAGE  ) 

40b  continue 


bOO  CONTINUE 
STOP  9999 
END 

NtNU 


Ht-OH  y PR0611 

fortran  tv  compilation  70222  SJ 

SUbROUTINE  INIT 

L OMHON  F 1 1 N • FSC • NCC  > MOLCO > UNI SSU > RULSCO • COGSYM . aPPCO r MNTCO t B > 

1 APPAC  r APPAQ  > PRPL • ONTSYS • CDMNCD  > FSCM  > SRCCO • ISUMPP • GNT AP • NUMBER • 

2 RHR,MRF.PCAP.«PF.UM0LC£).JC0»INP.I0UT»1H0LD»IMDLTP»IFNSTP.IFINAL» 

4 JTAP2R>ITAPlR>ITAP2R>NHOLD>NlR>N2R>NFINtNMDLS>LBLK>AAA>AAB>AAC> 

5 NFINS.NYYY.  INSUR.AAD»AA£*AAF»OHLS*RRRONT»ARPF.AMRF»APCAPfIOT» 

6 WbROUT • I TMTCD • COST , PL • SYSAUC • OALC • TPP  > T . NF INAL • NJ2 • JHOLO • LCRTCO 
INTLGEH  FIIN(2l>FSC>NCCfMDLCO(2)>UNISSU«RULSCOI3>>COGSYM 
integer  aPPCD(10>»>2)>MNTCO(2>  >APPAC(10>2i  •APPAGIlOrB)  iPRPLdO) 

INTEGER  ONTSYS.COMNCO.B<2»  5) .FSCM(2> fSRCCDf ISUMPP»0NTAP(10.4) 

REAL  MRF> NUMBER 

INTEGER  JMOLCO(2fl000t>JCO(2>10>ttOTI1000> 

DIMENSION  NUMBER(1000)>RRR(10>4)tMRF(10f4tiPCAP(10t4)«RPFaOI 
C lOUTs  PRINTER 
C INPs  CARD  READER 
C IMOLTP  s OUTPUT  TAPE  OF  GTYSYS 
C IFNSTPs  OUTPUT  TAPE  OF  PASS  1 

C 1 tapir  s scratch  data  set  for  consumable  FUNS 

C ITAP2R  » SCRATCH  DATA  SET  FOR  FUNS  MITH  aR  *FP  CODES 


r 


* 


h 


C IHOtO  : SCRATCH  DATA  SET  FOR  SAVIN*  MOOCL  COOC  AND  NO.  OF  OHLS 
C IF  INAL  s THE  FINAL  OUTPUT  TaPE 

inteser  blanks. notes 

DATA  NOTES/AHNTYT/.RLANKS/AH  / 

NTTTsnoTES 

LBLKSBLANKS 

INPsl 

I0UT32 

INUMSA 

IH0LDS9 

IFNSTHs^ 

{FINALS* 

jTapzrsio 

JHOlUsII 

ITaPIHs? 

|TAP2R5b 

NFlNALsb 

NHOLOsO 

lUHsO 

N2Rsa 


1 


I 


I 

-1 


NJ2sO 

C TmESE  are  aircraft  planning  data 

C OaLC  is  the  NUMtiEH  OF  OVERHAULS  PER  AIRCRAFT 

REAO(INP.1002)  TPPfOALC.SYSALC 
1002  F0NMAT(3F10.3) 

C NFINS  is  output  by  the  MAIN  FUN  PROSRAM 
remind  JHOLO 
REAU<INUM>1301)  NFINS 

<'  1301  FORMAT(2I10I 

return 

END 


»UiU 


Mt-uH  T PRoeia 


FORTRAN  IV  CONPILATION  70ZU  Sj 

subroutine  SETFIu 

COMMON  FIIN>FSC>NCC>M0LC0>UNISSU.RULSC0»C06SVM.«PPCDfMNTC0>B> 

I *PPACt*PPAO.PRPL«ONTSTS.COMNCD>FSCMtSRCCO*ISUMPP>ONT«PrNUMeCR» 

^ RRRtMRFtPCAPiRPF* JMOLCOtUCOt IMP. IOUT> IHOLOt IMOLTPt IFNSTPt IFINALt 
<♦  JTAP2R.ITAPlR.ITAP2R.NHOtD.NiRiN2R,NFIN, NMOLS. CBUC.  AAA.  AABtAACt 
5 NFINS.NYYY.  INSUR.AAO.AAe.AAF.OHLS.RRRONT.ARPF.AMRF.APCAP.IST. 

0 ALHOUT.ITMTCO.COST.PL.SYSALC.OALC.TPP.T.NFlNAL.NUa.JHOLO.LCRTCO 
INTESCR  FlIN(2)>FSC>NCC.M0LCD(2)>UNISSUtRULSCD(3I.CO6SYM 
INTEGER  APPCD(10.«.2).MNTcD(2)  >APPAC( 10.2) .APPAOI 10.2) .PRPLI 10) 

INTEGER  ONTSYS,COMNCO.B(2.  S) .FSCM(2) .SRCCD.ISUMPP.ONTaPIIU.A) 

REAL  MRf. number 

UIMENSION  NUMBER(1000).RRR(10.4) >MRF( 10.4) .PCAP( 10.4) .RPF ( 10) 

INTEGER  JMOLCD(2>1000I . JCD(2. 10) • lOTI 1000) 

INTEGER  ONE.TMO.SIX.SEVEN.a.B 
UATA  aCONST/lHB/ 

data  0NE/1H1/.TR0/1H2/.SJX/1H6/.SEVEN/1H7/.A/1HA/ 

REaU(IFNSTP)  FIIN.ITMTCO.FSC.NCC.FSCM.MOLCD.UNISSU.RULSCO.COGSYM. 

1 COST.pl. VEROUT . APPCO • MRF . RRR . pc  AP • MNTCO . ONT AP . RPF . APPAC . appag . 

* COMNCD . B . SRCCD . 1 SUMPP . 1 NSUR . UCRTCD 


C JCO  IS  THE  APPCOOES  SAVED  FOR  PRINTOUT  IN  THE  NEXT  PROGRAM 
DOISR  Izl.lO 
JCUd.DzLBLK 
ISV  JCU(2.I)=LBLK 
ONTSYSzO 
ARPFsO 
AMRF=0 
OHLSSO 
APCAPSO 
RRRONTsO 

C FIND  A printout  VALUE  FOR  RPF.MRF.ANO  PC/AP 
UO  261  1=1.10 
IF(HPF(1))  261.261.262 

261  CONTINUE 

GO  TO  264 

262  ARPFSRPF(I) 

264  DO  266  1=1.4 

UO  265  Jsl.lU 
IFIMRFIU.I))  265.265.260 


26S  CONTINUE 


<>6b  COiilINUL 


bO  ro  269 

..‘6b  AMHt-'rMHF  ( J>  1 ) I 

2b9  CONTINUE 

UO  272  U1.4  I 

UO  c7t  JsI.lO  - ] 

lFtPC*P(J.I))  271. 271. 273 

27i  CONTINUE  ^ 

2 7^  tOl.TINUE 
uO  TO  cTj 

273  APCAP=PCAPtJ.I) 

276  CONTINUE 

C EIKST  T«0  APPCODES  ARE  THE  ALLOWANCE  LIST  ITEMS 

uO  2U/  1=1.10  ^ 

IF(aPPAu(I.2)-UIiE)  2n4.2OA.2O4 

204  IF(aPPA0(I.2)-S1X)  20S.20R.20S  { 

20b  1F<aPPA(.(I.2>-AI  207.208.207 
207  CONII..Ut 

60  TO  211  1 

2O0  CONTINUE 

} 


JCU(l.ll=APPAO(I.ll 
JCU(2.1I=APPA0( 1.21 

211  CONTINUE 

UO  220  1=1.10 

1F(aPPA6(I.2>-TwOI  212.219.212 

212  1F(APPA0(I.2)-SEVCN)  213.219.213 

213  IF(APPAO(I.2>-bCONST)22b.219.220 

22u  CONIINUE 
GO  TO  225 

219  continue  ’ 

JCU(1.2|:APPAUII.1) 

JCU(2.2)=APPA6(I.2) 

22b  CpNIIr.UE 

C GET  All  AVAILAHLE  (UP  TO  10)  APPCODES  FOR  PRINTOUT 
1X=2 

uO  o7  U=1.4 
00  06  1=1.10 

IFlAPPCUd.J.ll-LRLK)  65.74.65 
74  lFiAPPC0(I.U.2>-L8LKI  65.66.65 
6b  IXslX.l 


JC0(2f IX>saPPCD(IiJ>2) 


JCD(l>lX)=APPCb(l>J>l) 


60  CONTINUE 


67  CONTINUE 


bo  CONTINUE 


I7j  IF(*PPACII>1)-LBLK)  17&>174>17S 


174  IPIAPPAC(I>2)-LBLK)  17b>176>175 


176  CONTINUE 


JCU(1>1X)=APPAC(1»1) 


JCD(2«IX)=APPAC(It2> 


177  CONTINUE 


ONTSYSsO 


7U  CONTINUE 


KETURN 


i 


> t’SulJ 

FOrtTH»N  IV  compilation  70a22  Sj 

SUuKOUTIliE  apcalc 

s.OMMOt4  FnN.FSC>NCC>MOLCU>UNlSSU.RULSCO>COGSrM.APPCO>MNTCUiB> 

1 *PP*Ci*PP»O.PFiPL.ONTSYS.C[jMNCD.FSCM.SRCCO»ISUMPP.ONTaPiNUMOEH. 

2 HKh , MMF . PC AP . NPF . JMDLCO . JCD  » INP , I OUT , IHOLU . IMOLTP. IFNSTP , IF INAL . 

A JTAP2t<.lTAPIR.ITAP2R.NHOLDiNIH,N2R.NFIN,NMOLS.LnLA,AAA.AAB.AAC. 
b NFINS.NYYY)  lNSUR>AAU>AAt>AAF>OHLS>RRRONT.ARPF>AMRF»APCAP> IOT> 

0 NLKOUT • 1 T'4TC0> COST (RLtSY^ALC  •0ALC>TPP>T,NF  INAL >NJ2>JHULD>LCRTC0 

INItGER  FIIN(2I  (FSCfNCCtMOLCDia)  •UNISSUfRULSCOO)  (COGSYM 
INTtGEK  APPCDdO.A.?)  .FiNTCD(2)  > APPAC  ( 10»2)  > APPAO(  10>2 1 tPRPLI  101 

integer  UNTSYS.C0MNCD>B(2>  S)>FSCH(2l>SRCCO>ISUMPPtONTAP(10t4> 

REAL  MHFtNUMbEF 

iniloer  jmolcc(2>  1000) •JcntadO) (Ioti  1000) 

UlFicNSlON  number  (1000)  •RHRIlOtA)  >HRF(10>4)>PCAP(10>4).RPF  (10) 
data  U/lHO/ 

RtAU(ITAPlR)  F IlN>ITMTCD>FSC>NCC>F'SCM>MO(.CO>UNISSUtRULSCO>COGSYM« 

1 t OST . PL . VEROUT  # APPCD » MRF , RRR , PC  AP  i MNTCf- » ONT  AP » RPF . 

£ 4iNTSYS«COMNCri>AAA>AAB>AAC.AAO>AAE>AAF>BrSRCCOt  ISUHPPt 

j A^  RP . APC  AP  f ARPF • JCD • INSUR • LCRTCO 
''HLb=0 


RRMuNTsO 

AAtsO 

AAuSO 

AAL-O 

uNYbYS=0 

lF(irMTCU-2)  710>710>600 
oOu  1F(I.UMNLLI-0)  610>620>bl0 
bio  ITMTCusa 
bO  TO  710 
b2b  ITMICOSI 
71u  LO  720  Isl.lO 

IF ( aPPCO ( I • 4 • 1 ) -LBLK ) 712>711t712 
7H  IF(APPC0(I«4.2)-LdLt')  712.720.712 
rU  CONTINUE 

CALL  SEAPOKJMDLCO. NMOLS  . APPCO(  1 >4. 1 ) t APPCD(  1 .4.2)  . INUX.  lERROR) 
IF(lLRKbR)  719. 713.719 
713  CONTIIME 


UNTSYSs4(iTSYS«  1QT(  IdOX)  •OMTAP(  1 .4  ) 

A AL:A  At  .number  (1WX)*PCAP(I'4)*0)iTaP(I.4)*RRR(I.4) 
AAU=AAO.iaT(lNLX)*  0NTaP(1>4|*PCAP(|.4)«MRF(I.4) 


IF«1TmTC0-1»  71*.7i«tTi4 


I 

I 

I 


C BASE  consumable 

714  CONTINUE 

417  AAB=AAB*MflF(li4>*  0NTAP(If4l  •t«T(INOX) 

1010  FONMAT(lHO«3HAAe>FlS.S»2X>SHAAO>F15.S>2X>3HAAE>F15.S»2X>3H«NT«110) 
bO  TO  716 

719  WR|TE(IOUT.37l6)APFC0(I»4<l)tAPPCD(It4i2i>FIlN(l)«FIIN(2) 

371b  FORMAT «1HO«20HCOULDNT  FIND  APCOOC  tAAtASdOH  FOR  FUN  A3fA4> 

716  CONTINUE 

720  CONTINUE 

DO  607  UltlO 

IF ( APPCD ( I • 1 • 1 ) -LBLK ) BOO • 601 • BOO 
601  IF(APPC0(l>l>2)>l.BLK)  B00>807ie00 
800  AAE=0*LC*PCAP(I>1)*0NTAP(I>1)*RRR(1>1)  * AAE 
UNTSrSsONTSYS  * ONTaP(1>1> 

AAO=AAD«  ONTAP ( 1 • 1 ) *PC AP ( I t 1 ) aMRF ( I • 1 I 
IF(ITmTCO-I)  B07>807>B03 
803  AAb=AAB«'  MRFI I >1 1 •QNTaPC  1 1 1 ) 

807  CONTINUE 

FRITEIIFINAL)  FI1N>ITMTCDiFSC,NCC>FSCM>MOLCO>UNISSUiRULSCOiCOST> 


1 PL  > mEROUT • QNTSYS  > SRCCO • MNTCD  > CDMNCO  > ISUMPP  t RRRONT • B • A AA • A AB  t AAD i 

2 A AE . A AF  « AMRF  > ARPF  > APC AP • 1 NSUR  > JCO  r LCRTCD • C06SYM 
NF1NAL=NFINAL*1 

return 

END 

RtNu 
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bUbMOUTIUC  AHCALC 

COMMON  FIIN.FStiNCC.MOLCO.UNlSSU.RULSCD.COeSYMfAPPCO.MNTCD.O* 

1 APPAC . APPAO . PRPL . oriTSYS . CUMNCO . FSCM i SRCCD » ISUMPP, ONTAP . NUMBER  t 

2 RHR . MRF  » PC  AP  t RPF . JMDLCO • JCO  f I NP • I OUT . I HOLD  > I MOL  TP  > I FNSTP 1 1 F I NAL . 

4 JTAP2Nf  ITAPlR>nAP7R>NN0L0>NIR>M2R>NFlN.NM0LS>LBLK>AAA>AAB>AACi 
b riFINbtNYYYf  INSUR.AAU>AAL>AAF>OHLS.RNRQNT,aRPF.AMRF>APCAP.I(iT. 

0 ALHOUT . I TMTCD .COST . PL . SYSALC . OALC . TPP . T , NF I NAL . NJ2 . JHOLO . LCRTCD 
iNTtOER  F1IN(2) tFSC.NCCiMnLCO(2l tUNISSU.RULSCD(S> .COGSYM 
INTLGER  aPPCOIIO.V.?) •MNTCU(2)  f APPACI 10.2) • APPAOI 10.2) tPRPLI 10) 

INTcOER  ol4TSYS.CLMNCO.b(2>  S>  •FSCM(2 1 .SRCCL.  ISUMPP.ONTAPI  10.4 ) 

KCaL  AHF.NUMULh 

INTLGCH  JMOLCO(2.10nO) .jCD(2. 10) .107(1000) 

UlMbNbluN  number ( 1000 ).RRR( 10. 4) .MRF ( 10.4) .PCAPI 10.4) .RPF 1 10) 

RLAL(I1aP2R)  F IIN.ITMTcO.FSC.NCC.FSCM.MOLCD.UNISSU.RULSCO.COGSYM. 

1 COST. PL. aEROUT.APPCO. MRF. RRR.PCAP.MNTCO. ONTAP. RPF. APPAC. APPAO. 

2 UliLS.ONTSYS.CDMNcn.  AAA. AAB.AAC.AAD.AAE.AAF.B. SRCCD.  ISUMPP. 
i AmRF  . APC AP . ARPF  . JCO . I t.SUR . LCRTCD 

lF(lTMTCU-4)  40b. 420. 435 
C TP’S  IS  A DEPOT  REPAIRABLt 


40b  DO  4lb  Ul.lO 

IF(APPCD(I.3.1)>LHLK)  407.406.407 
40e  IFIaPPCD(I.3.2)-LBLK)  407.415.407 

407  CALL  SEARCH(JMOLCO.tlMDLS.APPCO(I.3.1) .APPCD(I.3.2) .INOX.IERROR) 
tF(lERROR)  41b.4US.415 
40u  APPCD(I.3.1)=LbEK 
APPC0(1.3.2):LbLK 

oNTSYS=0NTSTSp10TI1NDX)*0NTAP(1.3) 

OHLSsOhLSPNUMBER  < I NPX ) tHPR ( 1 . 3)  (ONTAP ( 1 . 3 ) aPC AP  < 1 . 3 ) 

TsGi.TAP (1.3)  *MKF  ( 1 . 3 ) • lUT  ( INOX ) 

AAD=AA0(T*PCAP (1.3) 

AABsAABfT 
4l‘J  CONTINUE 
60  TO  4b0 

C TmIS  IS  A base-depot  REPAIRABLE 
42u  DO  42a  Ul.lO 

IF ( aPPCD (1.3.1) -LBLK ) 422.421.422 

421  1F(APPCD(1.3.2)-LBLK)  422.428.422 

422  CALL  SEARCH(JMOLCD.NMOLS.APPCO(I.3.1).APPCD(I.3.2).INOX.IERROR) 
IF(IERKOR)  428.424. 428 


r 


X 

I 


j ti 


HZH  Ts«iNTAP(l>3)*I0T(lNnXI 

QNTSYS:ONTSVS« lOT ( INDX I *ONT AP I I • 3 ) 

AAB=AAB*T*MRF(I>3> 

AAASAAA«T*ARPF 

AAOsA AOtT*PCAP ( 1 1 3 1 *MRF ( I > 3> 

AAF=AAF«T* ARPFtPC AP ( I > 3 1 

OHLSsOHLS+NUHfltR  < INfiX ) *RRR ( I • 3)  aRNTAP ( 1 1 3 ) aPC AP ( I > 3) 

APPCD(1i3«1)=LbLK 
APPCD(Ii3>2>sLbLK 
42tt  CONTINUE. 

60  ro  45b 

C THIS  IS  A BASE  REPAIRABLE 
43b  DO  440  I=l>10 

IF ( APPCO < 1 1 3 1 1 > -LBLK ) 438>437>43e 
437  IF(APPC0(I>3t2t-LBLK>  43a>440i43a 

43d  CALL  SEARCH(JIH>LC0>NM0LS>APPC0(I>3>1I>APPCD(I>3>2)»IN0X>IERR0R| 
IF(IERRUR)  440.439i440 
436  APPC0(I>3tt>=LBLK 
APPC0(I>3>2)=LbLK 
T=I0T(INDXI*0NTAP(I>3)*ARPF 


iANTSYSsONTSYSaIOT  < IMDX)  tONTAPI  I >3) 

AAArAAAAT 

AAF=AAF«T*PCAP(1>3) 

OHLSsOHLS4NUMbbR ( INOX  > aRRR ( I • 3 ) aONTAPI 1 1 3) aPC AP ( I r Si 

44U  CONTINUE 
450  CONTINUE 

00  460  UltlO 

IF ( APPCO ( I • 3 • 1 ) -LBLK ) 462 • 456  > 462 
45b  IFIAPPC0(I>3i2I-L8LKI  462t460>462 
460  CONTINUE 

C IF  ME  GET  HEREf  THERE  ARE  NO  MORE  AR  APPCOOES 
NRRONTsOHLSamEROUT 

ARlTETJHOLOdOIO)  MOLCOI 1 1 >M0LC0(2I  tOHLStONTSYS 

aRITETIFINAL)  FlINflTMTCOtFSCtNCCtPSCMtMOLCOtUNISSUiRULSCOiCOSTt 

1 PL>MEROUTtONTSYS»SRCCO>MNTCOtCOMNCD>ISUMPP»RRRGNTtB>AAA>AABfAA[)> 

2 A AE  > A AF • AmRF • ARPF • APC AP  > INSUR , JCO  t LCRTCD • COGSYM 
nfinalsnfinalai 

MRITETlHOLOi 10101  MOLCOT 1) tM0LCDI2l •OHLStONTSYS 
1010  P0RMATIA4>A3«F15.5>tl0l 


NHOLOSNHOLOAI 


462  continue 

NRITE(JTaP2RI  FllN«ITNTC0>PSC«NCC>FSCM»M0LC0tUNISSUtRULSC0>C06SVMf 

1 COST>Pt>HEROUT«APPCO>MRFtltRRtPCAPiMNTCO>eNTAP>RPF>APPAC.APPAO« 

2 ONES . ONTSYS • COMNCD • A A A > A AB • AAC  > AAO  > A AC . AAF » R > SRCCD  > ISUMPP . 
i AMRF.APCAPtARPFrJCOilNSURtLCRTCO 

NJ2SNJ2«1 
bOO  CONTINUE 
return 

ENU 

HbWU 
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FORTRAN  IV  COMPILATION 
SUUHOUTINE  SCAKCH(IARRAY>LX>IAR61*IARG2>NX>IERR  I 
C This  SUuROUTINE  picks  from  a 2 dimensional  array  IARRAY(2>LX|> 

C AN  INuEX  number  NX  CORRESPONOINO  TO  THE  MATCH  OF  THE  TMO  ARGUMENTS 

C lAHGI  AND  IARG2.  AN  ERROR  CODE  IS  SET  IF  THERE  WAS  NO  MaTCH-IERRsI . 
dimension  IARRAT(2>t00l 
lERRSO 

NX  s LX/2  * MOD  ILXf2> 

LSTlOwsO 

LSThI:LX«I  ’ 

b CONTINUE 

IFILSTLOW-LSTHlt  41t30>A0 
41  IF(1ARRAT(1>NXI-IAR6II  I>6>S 
6 IF(IARRATC2«NX)-IARt2l  I*2*3 
I CONTINUE 

IFINX-LSTLOW)  30t30«T 
T CONTINUE 
LSTLOWSNX 
ALclSTHI-LSTLOW 


NXsaL/2<  * .6 


NXsNX^LSTLOm 


60  TO  b 

i return 
j CONTINUE 

IFINX-LSTHI)  8t30>30 
b CONTINUE 
LSTnUNX 
«L=LSTHl-LSTLOb 
NXSAL/E.  * .6 
NX:NX«L&TL0« 

CO  TO  b 
3b  ICKRsl 
RETURN 
END 

NlNu 
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subroutine  SORT(aPPCO. length. factor. IOTY)  i 

c This  subroutine  sorts  a 2 dimensional  integer  array  called  appcd  from  low  I 

C To  HIGH.  THE  LOWEST  BEING  FIRST,  TREATING  THE  ARRAY  AS  DOUBLE  j 

C PRECISION.  THE  FIRST  ELEMTNC  BEING  HIGHER.  TWO  ADDITIONAL  ARRAYS.  | 

C attributes  of  appcd.  are  SWITCHED  TO  REFLECT  CHANGES  IN  APPCD.  i 

c factor  is  floating  point,  ioty  is  integer. 

DIMENSION  FACTOR(I) 

INTEGER  APPCO(2.100).IGTY(1> 

I0UT:2 
IFLAGsO 
IFIrSTsI 
ILASTsLENGTH-1 
IF(LENGTH-1I  SbO.SSO.SOI 
SOI  DO  blO  UIFIRST.ILaST 
j:l*l 

S03  IF(aPPC0(I.II*APPCD(1.J) I blO.SOA.SOS 
SOW  IF(APPC0(2.I>-APPC0(2.Ji>  SIO.SIO.SOS 


I 


SOS  ITsAPPCOll.Ii 

APPC0(I.I>:APPCD(I.J) 


*WCDI1.JI  = IT 
lTs*PPC0(2>l) 

*PPCDI2.I)=APPCD(2«JI 

«PPC0(2.JlstT 

ITsIOTYIJI 

101T<JI:ieTTCI> 

10TY<I)sIT 

T=FaCTOR(J> 

FACTORIJ):P*CTOP(I) 

FACIORIIIsT 
IFLAGsl 
blU  CONTlNOt 

MsILASY-IFIM&T 
tF(M)  SbO>5S(i>bl2 
bl2  CONTINUE 
IFLA6S0 
DO  b20  t=l>M 
JslLAST-t 
Ksj*! 

IF(APPCD(t>K>  'Ai'PCO<l*U) ) SlSfSlA>520 


514  IF(APPC0<2fK)-APPCD(2>U>>  51S>520iS20 
bib  1TsaPPC0(1*KI 

APPCOIl  tKISAPPCOdtJ) 

APPCD(l>J)=tT 

1TsaPPCOI2>JI 

APPC0I2>JI:APPCD(2>K> 

aPPC0(2>K)=IT 

ITslOTVIJI 

IQTT(J|stQTT(KI 

taiT(K):IT 

T:FACT0R(K) 

FACTOR(K)sFACTOR(U> 

FACTORUIaT 
IFLAGsl 
b2U  CONTINUE 

1LASTx1LAST>1 
IFIhSTsIFIRST^I 
IFIIFUAGI  SSOtbSOiSSO 


530  IFLAOsO 
eo  TO  sot 


«tNU 


CNO 
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FORTRAN  tv  COMPILATION 
SUbROUTINE  ATCALC 

COMMON  FIINfFSCiNCC>MDLCD>UNISSU>RULSC0>C06SYM.APPC0>MNTCD>Bf 

1 APPAC>APPAO.PRPL>ONTSYS#CDMNCO>FSCM>SRCCO>lSUMPP>eNTAP>NUMBER. 

2 RNRfMRF>PCAPiHPF>JMOLCO>JCO>tNP(IOUT«IHOLO«IMOLTP>IFNSTP>IFINAL. 

4 JTAP2R>ITAPIR>ITAP2RfNH0LCl>NlR»N2RtNFIN>NMDLS>LaLK«AAA>AAB<AAC> 
i NFINS>NYYY>  INSUR>AADtAAE>AAF>OHLS>RRRONT>ARPF>AMRF>APCAPf IQTi 
6 WEROUT • I TMTCD • COST I PL  t S YS ALC • OALC  > TPP. T , NF INAL  > NJ2 • JHOLD • LCRTCD 

INTEGER  F1INI2>>FSC>NCC»M0LCDI2)>UNISSU>RULSC0(3)>C06SYM 
INTEGER  APPCD(10>4t2)>MNTCD<2>  > APPAC ( 10>2) • APPAOt 10>2> iPGREt 10 1 
INTEGER  ONTSYS>CDMNCD>b(2>  SI •FSCM(2) >SRCCD> ISUMPPrONTAPI 10i4) 

REAL  MRF> number 

dimension  number  ( 1000 ) (RRRI  10(4 1 >MRF(  10 >41  »PCAP(10»4)  • RPFdOl 
INTEGER  JMOLCOI2>10n0)>JCOI2>10)<IGT(1000) 

IFLAGsO 

IFI1TMTCU«4)  20S>22n>230 
C DEPOT  REPAIRABLE 
20S  DO  210  IsltlO 

1F(APPCD<I>2>1)-LBLK)  207>206>207 
20b  1F(APPC0(1>2>2)>LBLK)  207>210>207 


207  irLAOsl 

209  TSMRF(l,2)*ONTAP(I>2i 
AAOSAAO«T*PCAP(l«2) 

AASsAAB^T 

A ACsA AC  «ONT AP 1 1 • 2 1 •RPR ( 1 » 2 1 'PC AP ( I • 2 ) 
UNTSYSSONTSYStONTAP  < I • 2 ) 

2lU  CONTINUE 

OHLSsOHLS«  A AO*SYSALC aTPP* ( 1 . 'HEROUT ) APL *3 . / 1 00 . 
GO  TO  2a0 

c this  item  is  a basE'DEPot  repairable 

220  DO  225  I=l>10 
IF(APPCO(I>2«l)-LBLK)  222.22I<222 

221  IF(aPPCD(I>2«2>-LBLK)  222>229>222 

222  IFLAGsi 

ONTSYSSONTSYSaONTAP ( I • 2 > 

T=GHTAP(It2) 

A AC=A AC aONT aP( I > 2 > *RRR ( I > 2 ) APCAP ( I > 2 ) 
AAD=AADaT*MRF  ( I • 2 > aPC AP  ( I > 2 > 

AAA=AAA*T*ARPF 

AAB=AAB«T*MRF(1>2) 


A AF  =AAF ♦ T • ARPF  aPC AP  < I • 2 ) 

22b  CONTINUE 

OHLSsOHLSa  a A0*S YSALC • TPP*  ( 1 . -WEROUT I aPLO . /!  00 . 
60  TO  240 

C this  ITCh  IS  A BASE  REPAIRABLE 
23b  DO  237  IsltlO 

IF « APPCD ( I > 2 • 1 ) -LBLK  > 232  >231 *232 

231  IF(APPC0(1>2>2)-LBLFI  232>237>232 

232  IFLAGsi 
TsAHPF*ONTAP(1>2) 

AAAsAAAaT 

QNTSYSsaNTSYS*UNTAP< 1 >21 
AAFsAaFaT*PCAP(1>2I 
AACsAACaONTaP ( I > 2 > aRRR ( I > 2 ) *PCaP ( I > 2 1 
237  CONTINUE 

OHLSSOHLSa  AAO* SYSALC *TPP* ( 1 1 'WEROUT >*PL*3./100i 

c ALL  Three  repairables  come  here 

C IF  the  KFLAB  is  NOT  SET  P0SIT1VE>  THIS  IS  NOT  AN  AT 
240  IFIIFUAO)  290 >290 >250 
25U  CONTINUE 


♦SYSALC*OALC*AAC 


asysalc*oalc*aac 


aSYSALC*OALC*AAC 

ITEM 


RRKQNT:SYSALC*0ALC*AAC*HER0UT 

nRITE(JHOLO>1010)  MOLCO(l) >MDLCD(2) lOHLStONTSYS 

mRITE(IFINAL)  FlIN>ITMTCO>FSC»NCCtFSCM>MOLCD»UNISSU»RULSCO>COST» 

1 Fl • WtROUT  t ONTSYS • SRCCO  > MNTCO  > COMNCO  > I SUHPP , RRRONT  > B • A A A • A AB • A AD • 

2 AAE • AAF I AMRF • ARPF • APCAP • INSUR  > JCOtLCRTCO  tCOBSYM 
MR 1 TE ( IHOLO •10101  MPLCD ( 1 > • MOLCO ( 2 ) • DHLS • ONTSYS 

101b  FOKMAT(A4>A9>F1S.5>I10) 

NHOLD=NhOLO+1 
NFINAL=NFINAL«1 
60  TO  900 
29U  CONTINUE 
NJ2:NJ2«1 
59  call  AECALC 

iiRITE(JTAP2R>  FIIN,ITMTCD.FSCfNCC»FSCM.WLCO»UNISSU.RULSCD.COGSYM. 

1 COS  T . PL . WEROUT , APPCO • MRF • RRR • PC AP • MNTCO  * ONTAP • RPF . APPAC • APPAQt 

2 OHLS>ONTSYS>CDHNCOrAAA>AAB>AACtAAO>AAE.AAF>B>SRCCO>ISUMPP> 

9 AMRF • APCAP • ARPF • JCD . INSUR .LCRTCO 

900  CONTINUE 


RETURN 


ufoh  y PRoiie 


c 


c 


c 


FORTRAN  IV  COMPILATION 
SUMROUTINC  AECALC 

COMMON  FIIN>FSC>NCC>MOLCOiUNISSUtRULSCO»CO«SVM.APPCO>MNTCO>B« 

1 APPAC>APPAO>PRPL«ONTSrStCOMNCO«FSCM.SRCCO>ISUMPP>ONTAP>NUMBER> 

2 RHR>MRF«PCAP«RPF>JMOLCO>JCD>INP.IOUT»IHOLD>IMOLTP>|FNSTPt|FINAL> 

4 JTAP2R,ITAPIR>ITAP2RtNHOLO>NlR«N2RtNFIN>NMOLS>LBLK.AAA>AAB>AAC» 
b NFINSfNTVVt  INbUR>AAO>AAEtAAFiOHLS>RRRONT. ARPFtAMRF>APCAPtIOT> 

6 MEHOUTt ITMTC0>C0ST.PL>SYSALC>0ALC>TPP>T»NFINAL«NU2> JH0L0>LCRTC0 

1NTE6ER  FIIN(2)>FSC>NCC>M0LC0(2)>UN1SSU>RULSC0I3)>C0«SYN 
INTECER  APPCD(10t4>2l  >MNTCD(2>  > APPAC( I0>2>  • APPAOdOf  2)  •PRPLIIO) 

INTEGER  0NTSVStC0MNC0.B(2>  S) >FSCM(2) >SRCCD> ISUMPP.ONTAPlIOtAI 
REAL  MRF>  number 

INTEGER  UMOLCD(2>IOOO|>JCO(2>tOI  tIOTdOOOl 

DIMENSION  NUMBERdOOO)  iRRR  dO>4>  •MRFdO>4l  tPCAPdOtA)  rRPFdOl 
THIS  IS  A REPAIRABLE—  DO  THE  AE  APPLICATIONS 
IFdTMTCD'>4t  79>a6>G5 
hake  sure  this  is  a S>  NOT  AN  IUNKNOWN: 

9b  IFdTMTCO'S)  9G>96>dO 

this  is  a base  repairable 

9b  'lO  98  IsldO 


70222  SJ 


J 

.] 


J 

J 


IF(APPCOd>l>l)-LBLK)  d6>97dl6 

97  IF(APPCOdd>2)-LBLK)  d6>9Sdl6 
db  CONTINUE 

AAC:AaC«ONTaP  d d ) *PCAPd  d > *RRR  (Id) 
ONTSYSsONTSYS+GNTAP  (Id) 

AAA:AAA«ARPF«eNTAP( 1 d ) 

AAF=AAF«  ARPF*PC  AP  (Id)  *ONTaP  (Id) 

98  CONTINUE 
AADSO 

60  TO  100 
79  continue 
C DEPOT  repairable 
DO  82  IzldO 

IF(APPCD(I«ld)  -LBLK)  81>80>81 
8U  IF(APPC0(Id>2)-LBLK)  81>82>ai 
81  T:  GNTAPdd)*MRF(Iil) 

GNTSYSS0NTSTS48NTAP  (Id) 

AABsAAB«T 

AAO:AA04T*PCAP(I>I) 

A ACSAAC4  PC  AP  ( I • 1 ) *888  (Id)  aONTAP  (Id) 


j 


8^  COHTINUe 
60  TO  100 

C THIS  IS  A BASe-OCPOT  REPAIRABLE 
8b  00  92  IslflO 

1FIAPPC0(I>1>1>-LBLK)  68.87>88 

87  IF(aPPCD(I>1>2)-LBLK)  8e>92>88 

88  CONTINUE 
T:UNTaP(I>1) 

ONTSYS:ONTSYS«(iiNTAP(  1 1 1 1 

AAA=AAA«T*ARPF 

AAU=AAB«T*MRF(1>1) 

AAFsAAF*T*PCAP  » I • I » ‘ARPR 
A AOsAAO«T*PCAP ( I • 1 ) *NRF ( I > 1 ) 

AAC=AAC*T*PC AP ( 1 » I ) ‘RRR « I » I > 

92  CONTINUE 

C ALL  three  REPaIRABLES  COME  HERE  TO  CALCULATE  DHLS  AND  RRRONTITY 
lOU  CONTINUE 
llU  CONTINUE 

OHLS=SYSALC*OALC*AAC  ♦OhLS 
RRRONTewEROUT •OHLS 


return 

ENU 

HtHl/ 

NkOAO  I4MY  PR06>0CPASS2 
MtiMU 

H0U1  Ij>JUb>DCPASS2 


iim 


y/iw/f  - 


>.  'M'^s 


APPENDIX  C 

PROBABILITY-CONSTRAINT  PROGRAM 


The  probability  program  consists  of  the  job  steps  PROBl  and  PROB2. 

1.  JOB  STEP  PROBl 

The  data  inputs  to  PROBl  are  FUN,  identification  code,  FSC,  NCC,  FSCM,  model 
code,  unit  of  issue,  rules  code,  unit  price,  production  lead  time  (PL),  wearout  rate  (Z), 
applications,  quantity  per  provisioning,  source  code,  maintenance  code,  condemnation  code, 
par  pool  quantity,  RRR  Quantity  (RRRQ),  nomenclature,  part  number,  AAA,  AAB,  AAD, 
AAE,  AAF,  maintenance  replacement  factor,  rotable  pool  factor,  insurance  quantity,  local 
routing  code,  and  cognizance  symbol.  These  data,  along  with  certain  planning  data,  are  used 
in  computing  average  demands  for  spares.  These  average  demands  are  used  in  job  step 
PROB2  to  compute  optimal  quantities  of  spares. 

The  planning  data,  which  are  read  from  cards,  consist  of  the  following: 

• Tl,  the  flying  hours  per  month  for  consumable  and  wearout  items 

• T2,  the  flying  hours  per  month  for  repairables 

• T3,  IMA  TAT 

• T4,  the  resupply  time 

• T5,  the  time  to  be  protected 

• T6,  restockage  time 

• NBASE,  the  number  of  lOL  columns  desired 

• ANAC,  the  number  of  flying  hours  that  corresponds  to  each  lOL  column 

• ANORS,  the  desired  probability  constraint  to  which  the  program  will  be  run 

Operating  with  the  demand-floor  option  requires  that  for  each  type  of  item,  a min- 
imum expected  demand  and  a period  of  time  in  months  be  read  from  a card.  For  any  item, 
if  the  average  demand  for  spares  to  be  placed  at  an  operating  base  over  this  period  for  a 
particular  column  is  less  than  the  minimum,  the  item  is  assigned  0 spares.  An  asterisk  will  be 
printed  next  to  the  zero  to  indicate  that  demand-floor  action  has  taken  place. 

Average  demands  for  operating  base  and  backup  spares,  and  average  demands  for  a 
cutoff-criterion  (demand  floor)  comparison  are  computed  for  every  item  except  depot 
consumables.  Depot  consumables  receive  only  backup  spares.  The  average  demand  per 
month  for  operating-base  spares  and  the  average  demand  per  month  for  the  cutoff  criterion 
are  directly  proportional  to  the  flying-hour  programs.  Since  there  are  several  different 
flying-hour  programs  (one  for  each  lOL  column),  a value  proportional  to  average  demand 
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demand  (not  including  the  flying-hour  program  for  each  column)  is  computed  for  each 
item;  these  values  are  then  multiplied  by  each  of  the  numbers  of  flying  hours  per  month  in 
turn  to  obtain  average  demands,  resulting  in  a more  efficient  program  operation.  The  aver- 
age demands  depend  on  the  type  of  item  and  the  repair  location.  The  equations  u.sed  in 
computing  the  proportionality  constants  for  the  six  different  item  types  are  shown  in  Table 
C~l.  For  a description  of  the  six  different  item  types,  see  Subsection  2.2.3  of  the  text. 


Table  C-1.  PROPORTIONALITY  CX)NSTANTS 

Item  Type 

Constant  of 
Proportionality 
for  Average 
Demand* 

Constant  of 
Proportionality 
for  Cutoff- 
Criterion 
Comparison* 

Average 

Demand  for 

Backup  Spares* 

Base  Depot  Item 

(AAA  ■ T3  + AAB 
• T4)/3000 

(AAA  + AAB) 

• MO/lOO 

[3AAF  • Z • PL  • T1 
+ AAD  • (T2  • T6/30 
+ 3 • Z • PL  • Tl)]/ 

100  + RRRQ 

Base-Repairable 

Item 

AAA  • T3/3000 

AAA  • MO/lOO 

3AAF  • Z • PL  • Tl/ 
100  + RRRQ 

Depot-Repairable 

Item 

AAB  • T4/3000 

AAB  • MO/lOO 

AAD  • (T2  • T6/30 
+ 3Z  • PL  • Tl)/100 
+ RRRQ 

Base-Consumable 

Item 

AAB  • T5/3000 

AAB  • MO/lOO 

AAD  • PL  • Tl/33.3 
+ AAE  • PL/6 

Depot-Consumable 

Item 

AAD  • PL  • Tl/33.3 
+ AAE  • PL/6 

♦See  Appendix  F for  definitions. 

MO  is  the  number  of  months  inputted  to  establish  a demand-floor 
criterion  for  this  type  of  item. 

Depot-consumable  items  are  considered  only  in  computing  backup  spares.  Therefore,  no 
constants  of  proportionality  for  average  demand  or  for  the  cutoff  criterion  are  computed. 


2.  JOB  STEP  PROB2 


PROB2  uses  the  average  demands  for  spares  computed  in  PROBl  to  calculate  optimal 
numbers  of  spares.  The  only  card-input  parameter  is  an  integer  that  represents  the  number 
of  items  for  which  data  can  be  kept  in  core  simultaneously  (a  function  of  available 
memory).  Since  the  program  is  intended  to  be  capable  of  computing  spares  for  any  number 
of  items,  these  data  must  be  stored  on  a drum  for  every  item;  and  only  a limited  number  of 
items  are  treated  at  one  time. 
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Optimal  spares  are  computed  for  each  column  in  turn,  and  then  for  the  backup.  The 
criterion  for  determining  which  item  is  to  receive  a spare  is  the  value  of  the  need  cost  factor, 


VAL  = 


1 - SUMPC 
COST 


where  SUMPC  is  the  probability  of  spares  sufficiency  for  a particular  item  and  COST  is  the 
unit  price  of  that  item.  VAL  is  calculated  for  all  items.  The  item  for  which  VAL  is  largest 
receives  a spare.  The  probability  is  computed  by 

M ad 
^ e (AD)-* 

SUMPC  =2^ 

j=1 


j! 


where  N is  the  number  of  spares  and  AD  is  the  avereige  demand  (for  site  spares,  the  product 
of  the  proportionality  constant  and  the  flying-hour  program;  and  for  backup,  the  average 
demand  as  computed  in  PROBl).  The  overall  probability  of  sufficiency  is  the  product  of  the 
probabilities  for  each  item;  and  the  calculations  for  each  column  and  for  the  backup  are 
complete  when  this  quantity  is  at  least  as  great  as  the  desired  probability-of-spares- 
sufficiency  input  to  PROBl  (ANORS). 

For  the  overall  probability  to  be  at  least  as  great  as  ANORS,  the  probability  of  spares 
sufficiency  for  each  item  must  be  greater  than  or  equal  to  ANORS.  If  500  or  fewer  items  are 
being  treated,  the  probability  of  spares  sufficiency  (500  was  determined  as  the  most  reason- 
able upper  limit  for  the  number  of  items  that  can  be  kept  in  memory  core  simultaneously)  is 
insured  by  adding  spares  (increasing  N in  the  equation  above)  to  each  item,  in  turn,  until  for 
that  item  SUMPC  is  greater  than  or  equal  to  ANORS.  To  speed  up  this  procedure  for  a large 
number  of  items  it  is  desirable  to  add  more  spares  immediately  in  this  initial  phase  of  the 
program.  Therefore,  if  more  than  500  items  are  being  considered,  a different  method  is 
used,  as  described  below. 

If  M is  the  total  number  of  items,  then  (ANORS)l/^s  PI  is  computed  and  one  item  is 
given  enough  spares  so  that  its  probability  of  sufficiency  is  at  least  as  great  as  PI.  For  this 
item,  with  unit  price  = COST, 

VALr  = (1.  - SUMPC)/COST 


is  computed,  and  every  other  item  is  given  enough  spares  such  that 

(1.  - SUMPC/COST)<VALr 

After  this  phase  of  the  program  is  completed,  in  which  the  items  are  treated  individu- 
ally, spares  are  added  to  the  items,  by  using  the  iterative  method  mentioned  above,  until  the 
overall  probability  of  sufficiency  is  at  least  as  great  as  ANORS.  Since  all  the  data  necessary 
to  compute  SUMPC  and  VAL  for  every  item  for  a large  number  of  items  cannot  be  kept  in 
core  simultaneously,  these  quantities  are  saved  on  drum,  and  only  the  data  for  the  500 
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lar(;est  VALs  are  kept  in  core.  Spares  are  then  added  to  the  items,  in  turn,  for  which  VAL  is 
largest,  with  VAL  being  recomputed  as  a spare  is  added;  and  the  overall  probability  of  spares 
sufficiency  is  calculated.  This  process  continues  until  the  overall  probability  of  sufficiency  is 
at  least  ANORS  or  until  every  item  has  a VAL  lower  than  the  501st  item.  If  the  overall 
probability  of  sufficiency  is  still  less  than  ANORS,  the  items  are  reordered  by  VAL;  and  the 
data  for  the  now-current  500  largest  VALs  are  kept  in  core,  and  calculations  proceed  as 
before. 


When  enough  spares  have  been  added  so  that  the  overall  probability  of  sufficiency  is  at 
least  ANORS,  for  a particular  column,  the  next  column  is  treated;  i.e.,  average  demands  are 
recomputed  for  a new  flying-hour  program,  and  optimum  quantities  of  spares  are  calculated 
by  the  same  method.  When  this  process  has  been  completed  for  every  column,  the  same 
method  is  applied  for  backup  spares. 


After  this  process  has  been  completed,  the  quantities  and  descriptive  data,  such  as  part 
number  and  nomenclature,  are  printed  out  by  item.  For  base-depot  items,  spares  are  distri- 
buted between  base  and  depot.  In  addition,  a tape  is  created  that  includes  the  column 
spreads  for  repairables  and  base  consumables.  This  tape  is  used  in  updating  the  Master  Data 
File.  Descriptive  data  are  also  printed  for  items  whose  source  codes  are  P2.  At  the  end  of  the 
printout  a summary  is  included,  indicating  the  overall  probability  of  sufficiency  per  lOL 
column  and  for  the  backup  column.  Additionally,  the  cost  of  spares  for  each  lOL  column 
and  for  the  backup  is  shown. 


A program  throughput  is  shown  in  Figure  C— 1.  Program  logic  is  shown  in  Figure  C— 2, 
which  is  followed  by  a complete  program  listing. 
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Figure  C-1.  THROUGHPUT  DESCRIPTION  FOR  PROBABILITY  PROGRAM 


kup  to 


(conlinufd) 


NCOH  BLVY  OflUl 


U4IV*C  •l9U/H9l/«92/49H  COBOL  COMPILATION  DaTE-TOOBO  TIME-00:00  VErtGC 

OOOOlO  IDENTIFICATION  DIVISION. 

000020  program-id.  UNIVAC  aSO. 

000030  ENVIRONMENT  DIVISION. 

000040  configuration  section. 

OOOOSO  source-computer.  UNIVAC-492. 

000060  OBJECT-COMPUTER.  UNIVaC-492. 

000061  INPUT-OUTPUT  SECTION. 

000070  FILE-CONTROL. 

000075  SELECT  SPARE  ASSIGN  TO  J DRUM. 

OOOOaO  ‘'ELECT  OF  ASSIGN  TO  I DRUM. 

000090  data  division. 

OUOlOO  FILE  SECTION. 

000101  FO  SPARE 

000102  LABEL  RECORDS  OMITTED 
000103  ACCESS  RANDOM 
000104  actual  key  is  LL 
000105  data  record  is  NSPARE. 

000107  01  NSPaRE  picture  X(125). 

000110  FD  OF 

000130  LABEL  RECORDS  OMITTED 
000150  ACCESS  RANDOM 

000160  actual  key  is  JJ 
000161  data  record  is  AA. 

000170  01  AA  PICTURE  X(65). 

0U0171  WORKING-STORAGE  SECTION. 

000172  77  JJ  SIZE  5 COMPUTATIONAL  VaLUE  ZERO. 

000175  77  LL  SIZE  5 COMPUTATIONAL  VALUE  ZERO. 

ouoibo  common-storage  section. 

000190  77  8B  PICTURE  X(6S). 

000200  77  11  SIZE  5 COMPUTATIONAL. 

000205  77  NSl  PICTURE  X(I2SI. 

0O0207  77  KK  SIZE  5 COMPUTATIONAL. 

000210  PROCEDURE  DIVISION. 

000220  OFILE. 

000230  OPEN  I-O  OF. 


000240  ENTER  RETURN-LINE  OFILE. 

000250  ENTER  COBOL  OEILE. 

000260  000. 

000261  MOVE  II  TO  JJ. 

000265  READ  OF  INVALID  KEY  GO  TO  ENDUP. 

000270  WRITE  AA  FROM  bB  INVALID  KEY  GO  TO  ENDUP. 

000280  enter  return-line  000. 

OU0290  ENTER  COBOL  000. 

000300  III. 

000301  MOVE  II  TO  JJ. 

000310  READ  DF  INTO  BB  INVALID  KEY  GO  TO  ENDUP. 

000320  ENTER  RETURN-LINE  III. 

000330  ENTER  COBOL  III. 

000340  CFILE. 

000350  CLOSE  DF. 

000360  enter  return-line  CFILE. 

000370  ENTER  COBOL  CFILE. 

000380  endup,  display  II.  i INVALID  KEY*. 

000390  STOP  RUN. 

000400  OFILEI. 

000410  OPEN  1-0  SPARE.  > 

000420  enter  return-line  OFILEI. 

000430  ENTER  COBOL  OFILEI. 

000440  UORUM. 

000450  MOVE  KK  TO  LL. 

000460  HEAD  spare  INVALID  KEY  GO  TO  ENDUP. 

000470  WRITE  NSPARE  FROM  NSl  INVALID  KEY  80  TO  ENDUP. 
000460  ENTER  RETURNM-INE  OORUM. 

000490  ENTER  COBOL  OORUM. 

000500  IDRUM. 

000510  MOVE  KK  TO  LL. 

000520  READ  SPARE  INTO  NSl  INVALID  KEY  GO  TO  ENDUP. 
000522  enter  RETURN-LINE  IDRUM. 

000524  enter  COBOL  IDRUM. 
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mfor  yx  calvac 

FOnTRAN  IV  compilation 
SUbROUT INE  C ALV AL ( I TOT • ANORSt  ANAC  > CTOFA  > NTTPE  > JVaR ) 
COMMON  PRECL>SUMPC>COST> Vi VAL* I I iCTi I 
dimension  CTOFA(S)iNTYPE(S) 

IOS2 

IF ( I TOT-JV AR ) 6S0 i 650 i 10 
lU  HISANORS 
K = 1 

462  S : Pl**(l./ITOT> 

475  DO  400  I sKiITOT 

CALL  III 
XL  = Y*ANAC 
EXRDEHsCT^ANAC 
DO  100  j:li5 

IF(I-i4TYPE(  J)  )901i3nlil00 

100  CONTINUE 

101  CTuF=CTOFA<J) 

IF(EXPDEM-CTOF)400i400i401 

401  IF  (XL-IO.)  405i40ni400 

400  C0..T1NUE 


70090  SJ 


% 


4RITE(IOi302) 

102  F0RMAT(29H  all  ITEMS  BELOW  DEMAND  FLOOR) 
STOP 

405  SUMPC  = EXP<-XL) 

IKEC  = I 
PRECL  s SUMPC 
II  = 0 

4<0  IF  (SUMPC'S)  41Ui41Si415 

410  II  : 11^1 

PRLCL  : PRECL*XL/n 
IF  (PRECL-1.E-70(  465i465i470 
465  K : I ♦ 1 

60  TO  475 

470  SUl-lPC  s SUMPC  ♦ PRECL 

60  TO  420 

415  WAL  = (1. -SUMPC I /COST 

505  VALSAV  = VAL 

Call  ooo 
PMUOUC  s SUMPC 
OU  425  IslilTOT 


IF  II-IRCCI  «30t42Rt«30 
030  Call  UI 

LXPOEMsCT«ANAC 
DO  3S0  jsl»5 

IFI1-NTYPE(J))3S1«351»350 

350  CONTIIAJE 

351  CTOF=CTOFA(Jl 

1 F ( EXPDEM-C  TOF ) A29 • *29 • A32 
429  II  : 0 

60  TO  427 

432  VAL  s VALSAV  • COST 

XL  s Y*ANAC 

IF(aL>200.)500>416.416 
416  11=XL4^1.645«S0PT(XL>4.63S253 

427  SUmPC  : 1. 

PHLCL  = 1. 

VAL  = 0. 

60  TO  490 

500  SUrtPC  : EXP (-XL I 

PHECL  r SUMPC 


11  = 0 

4i*5  IF  (1, -SUMPC -VAL)  43S>43S>440 

440  11  = Il«  1 

PKECL  : PRECL*XL/II 
IF  (PRECL-l.E-70>  4e0>4S0f4a5 
4aU  VaL  s 0. 

SUMPC  s 1. 

11  = 11-1 
60  TO  490 

4tt5  SUMPC  s SUMPC  * PKECL 

60  To  445 

435  PROOUC  s PR0DUC*SUMPC 
VAL  : (1. -SUMPC I /COST 
490  CALL  000 

425  continue 

bOO  IF(PROOUCI650rb50*601 
oOl  1F(PR00UC-AN0RSI  450i45S>49S 
455  PI  : Pl-.l 

IF  IP1-.05I  660i46n>460 
4bO  F2  X VALSAV 


i r 


s X Pi«*(i./noT» 

I s IRCC 
CALL  III 

XL  : T*ANAC 

MO  IF  ISUM>C>S)SI5«Sl9i510 

SIO  IF  (111  S19>S19fS16 

Si(i  SUHPC  : SUMPC-I>RECL 

PRtCL  s PRECL*I1/XL 

II  = ll-l 
GO  TO  bSO 

515  ll  = 11  ♦ I 

PRLCL  = PRECL*XL/II 
SUhPC  : SUMPC  ♦ PRECL 
519  WAL  s (1. -SUMPC I /COST 

IF  (Fi-VAL)  605i*»S5>605 
bU5  VALSaV  = VAL 

call  000 
PRUDUC  = SUMPC 
00  525  Isl.lTOT 
IF  (I-IREC)  S30fS2S>S30 


IF  III)  524>524.S2F> 

VAL  : VALSAV*C0ST 
XL  = Y*ANAC 
EXL  s EXPl-XLI 
IF  (EXL-l.E-TOI  525t525.S41 
IF  (PRECL-I.E-70)  532>532i54S 


SUF.PC  = EXL 
PRtCL  = EXL 

IF  (l.-SUMPC-VAL)  536»536»*40 
II  s II  « 1 
PRtCL  s PRECL*XL/1T 
IF  IPRLCL-I.E-TO)  ?a0t260t289 


SUKPC  s I I 
II  s 11-  I 
GO  TO  590 

SUMPC  s SUMPC  * PRECL 
60  TO  24S 


I 

■* 

i ! 


I 
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MS  IF  (I.-SUMFC-VAL)  M0«SMtS3S 
S«0  IF  (lit  536*SM»S4I6 

54fc  SUWPC  a SUMPC  - FreCL 

FNeCL  a PReCL*It/XL 
tl  a II-l 
«0  TO  S*»S 
53S  II  a 11  ♦ 1 

PHECL  a PReCL*XL/II 
SUMPC  a SUMPC  * PRCCL 
Mb  VAL  a (1. -SUMPC  I /COST 

bj4  PROOUC  a PROOUC*SUMPC 

b90  CALL  000 

b^b  CONTINUE 

GO  TO  600 
bbO  ANORSlaANORS 
bbl  SUMLOGaO. 

DO  bOIal.ITOT 
CAUL  111 

00  380  Jal.S 

IP(l-NTrPE(UM301>3Al>980 


380  CONTINUE 
3S1  CTOFaCTOFA(J) 

EXPDEMaCT*ANAC 
IF(EXPDEM.CT0F 16050. bOSOt 382 
oObu  Itau 

SUMRCal. 

VALaO. 

GO  TO  69 

382  II  a 0 i 

XL  a ANAOr 

) 

IFIXL-200.I700.70.TP 
70  llaXL»1.64S*S0RT(XLl4. 838263 
SUMPC  a 1, 

PRECL  a I. 

VAL  a 0. 

GO  TO  69 

700  SUMPC  a EXPI-XLI 


PRECL  a SUMPC 
VALad. -SUMPC  I /COST 
IF  CSUMPC-AN0RS1I6I >69.69 


■ 

^ 1 

I 

GI 

11  S I141 

S 

B 

PRECL  3 PRCCL*XL/1I 

h * 
^ 1 

r 

SUMPC  3 SUMPC  ♦ PRECL 

F2  3 VAL 

•• 

VAL  3 II. -SUMPC) /COST 

• • 

bS 

lFtF2-VAL)65f70.6S 

IF  ISUMPC-ANORSI >61.69.69 

i ^ * 

b9 

CALL  000 

9 a 

dO 

SUMLOGSSUML064AL06IO I SUMPC ) 

451 

SUML06SSUMLOG470. 

IF I SUMLOG  >451.451.450 

ANORS13ANORS14.01 

' • 

1FIAN0RS1-1.)651.652.652 

im 

652 

MRITEI10.6S3) 

e53 

format  IS  UNDERFLOM  MITH  .99 

STOP 

t * 

4S0 

return 

.. 

MENU 

end 

urOr*  YX  PhOb* 

FORTHAN  IV  COMPILATION 
COMMON  PRECL # SOMPC » COST >TtVALtII»CT>I 
DIMENSION  ANAC(IO).  ISCtS),  RCOEOl.  AN0mE(5).  PARTIS). CTOF 
I IS) 

EOUIVALENCEIISCII).IBO).IISCI2).IB).IISCI3)»IO). 

1 IISCI‘»).IC).IISCI5).I0C) 

integer  CMNTI2) 

integer  FSC.OMT.RCOE.CSRC.  CMaCC.AnOMC.PaRT.LRC.COGSYM 
integer  FIINI2).FSCMI2).COOMI2).APPLia.lO) 

HEAL  MONTHSIS).MO 
data  N222/4HNZZZ/ 

HEHINO  10 
hEPiNO  11 

remind  12 

KEMlNO  13 
REMIND  I* 

10E2 

C READ  LENGTHS  OF  EACH  OAT A AREA 
remind  9 
REA0I9)1SC  >N6 


700S0  Su 


CALL  OFILC 
HChINO  6 
RUINO  7 
ilCADIl«»l  NBAK 

ReAOCl.SI  UfUfTSiTAiTStTAfANORS 
MCAOdtSI  ICTOf  IIWMONTHSditlxliS) 

REAOlItSI  (ANAC(I)tIsl«NeASC) 

4 FORMATllAISi 

& FORMATtlOFS.l  I 

tOS  s 9 

C COUNT  number  of  ITEMS 

ITOT  s ISO  ♦ IB  « ID  « 1C 
JTOT  s ITOT  ♦ IDC 
IF  (JTOT)  «50>45I>«S0 
4bO  I = U 

MNITe(7i  ISCiANORS>CTOF>ANAC>ITOT«JTOTiNBASE  (NA 
DO  a J=l«5 
lUS  = IDS  ♦ I 
NUMREC  = ISCIUI 


IF  (NUMRECI  8fa>IS 
IS  MOsmONTHSIJI 

DO  7 K:1> NUMREC 
I s I « I 

read  (IDS)  FIIN>lDO«FSCiNCC>FSCM>COOM»UNITiRCOE>COSTfPL>Z> 

1 APFLtieUtCSRCtCMNTtCMACCf IPPe»RRRe»ANOMCtPART>AAA> 

2 AAM>AAO>AAE>AAF>AMRFtRPFt  INSOTViLRCtCOBSYM 
CONI  s AAA  • T3 

C0N2  s AAB  • T4 

CON3  s 3.  • Z • PL  * T1 

C IN  the  CALCULATIONS  WHICH  FOLLOW  Y IS  A CONSTANT  OF  PROPORTIONALITY 
C FOR  SITE  SPARE  EXPECTED  DEMANDi  CT  IS  A CONSTANT  OF  PROPORTIONALITY 
C FOR  the  expected  DEMAfO  CUTOFF  CRITERION.  ZZ  IS  THE  EXPECTED  KMAND 
C FOR  BACKUP  SPARES 

eo  TO  ( 1001.1002.1003. 1004. lOOB) I J 

c wase-depot  item 

1001  Ts(C0NI.C0N2I  /3000. 

ZZS  < AAF*C0N3«AA0* I Tt*Ta/30 . «C0NS 1 1 /lOO . 4RRRO 
CTs « AAA* AAB I •MO/IOO . 

C RAT  IS  PERCENTAOE  OF  SITE  SPARES  ASSIONCO  TO  DEPOT  FOR  BASE-DEPOT 


m 


n ;> 

..  ;l 


itehs.  the  other  spares  are  the  base  portion 
Rat  s cone/(coni  ♦ coNai 

RHITEITI  PIlNfCOST>Z2>RATtANOHE(FSCtAPPL>FSCM«COOM>UNlT(CSRCf 

1 CHNTiCMACCfAMRF«RPF>ieU«  TStRCDE* IPPOiCTtNCC  .PART 

2 iINSOTY  .LRCCOeSTM 
60  TO  610 

BASE  ITEM 

1002  VsCONl/3000. 

Z2:AAF*CON3/100.«RRRO 

CT3AAA*MO/100. 

60  TO  610 
C DEPOT  ITEM 

1003  YSCON2/3000. 

Z2=AA0* ( T2*T6/30 .♦C0N3 ) /lOO . ♦RRRQ 
CT=AAB*MO/100. 

GO  TO  610 

C consumable  ITEM 

1004  Y:AAa*TS/3000. 

CT=AAD*MO/100. 

C DEPOT  consumable 


1005  ZZ=AA0*PL*T1/33.33S«4AE«PL/6. 

610  IF(KC0E(l>-NZZZl6ll.611.6]2 

bll  ZZ=0. 

ol2  MKlTb<6t  FI1N.COST.ZZ.RAT.ANOME.FSC.APPL.FSCM.COOM.UN1T.CSRC. 


L CHNT.CMACC.AMRF.RPF.10U.  T3.RCDE.IPPB.CT.NCC 
I .LRC.C06SYM 
1FI1-|T0T)2>2.7 


.PART.INS6TV 


CONTINUE 
CALL  CFILE 


HEHlNO  10 


I 


N^OK  YX  PKOBB 


FOHTRAN  IV  COMPILATION  TOOSO  Sj 

COMMON  PRECL«SUMPC>COSTtV.VAL>IIiCT*I.IIZO(2SliISPARC 
OIMCNSION  INO(IO) 

DIMENSION  ANACUOI.  ISC(S).  RCDEOIt  ANOmE(S)>  PARTCS)# 

1 LLLISIf 

1 PllA(I0)«NSPAREI2S>ll)tNS(II)tMM(Ill>NUMbER(6tfZC0ST(lI> 

UIMLNSION  A VAL  ( SOO ) • ASUMPC  ( SOO ) i APRECL  ( SOO I > ACOS''  (SOO I • AY  ( bOO ) • 

I lSPIS00liIPOINT(500l>ACT(SO0i 
dimension  NTYPEISI tCTOF (5) tCSAVEIS) tCTOFFIb) 

EWUIVALENCE(ISC(I)«lHOI 
INTEGER  CMNT(2)  iX.XIIZ) 

INTEGER  FSC>UMT«RCDE>CSRCt  CMACCiANOMEtPARTiLRC>COCSYM 
integer  FIIt4(2)>FSCM(2).CODHI2)>APPL(2>10> 

INTEGER  ACiAtC 

data  IbLNK/lH  /•1AST/1H*/«N22Z/«HN222/4A/IHA/*C/IHC/«I6LNKS/i»H 
1/>X/4HXXXX/>X1(1)/IHI/>XIC2)/IH2/ 

REV I NO  b 
KEVINO  b 
REklNO  7 

remind  tt 


READ (7)  ISC>AN0RS.CT0F>ANAC>IT0T>JT0T>NBASE  iNG 

DO  1500  JsltNBASE 
PUA(J>sO. 

IbOu  2CObT(J.)=0. 

KCaU(1>1492)DVAR0 
1492  F0RMAT(I5I 
IPsb 
10=2 

ISPARESO 
CALL  OFILE 

) 

CALL  OFILEI 
NTTPE<l>slSCIll 
NTTPE(2)=1SC«2I*nTYPE(1) 
tjTYPE  < 3 » slSC  C 3 ) ♦NTYPE  ( 2 » 
r4TYPE<4)slTOT 
NTYPE(5>=JT0T 
IF  (JTOT)  4b0445It4S0 
450  IF  (ITOT>  5S0t5a0.449 

449  123  > 0 

5«2  00  10  DSltNBASE 


AN*CJs*N*C(J> 

1F(JVaRO-ITOT)913>913>590 
b90  JVARSITOT 
60  TO  913 
913  JVAHSJVARO 

915  CALL  CAtVAL(ITOT«ANORSiANACJ>CTOF*NTYI>etJVARl 
lOUTsO 
bSsl. 

UO  896  Irl.ITOT 
CALL  III 

tt96  SS=SS«SUM>C 

IFISS-AN0RS)916>12tl2 
914  UO  100  IsltJVAR 

call  111 

ACT(I)=CT 

AVAL(I)=VAL 

ASUMPC<I)=SUMPC 

aPHLCLCDsPRECL 

AT(I)sT 

ACOS.T(1»=COST 


ISP(I)=11 
100  IP01NT(I>:1 

JVAH1=JVAR«1 

IF » JV AHI-ITOT  » 622 • 622 1 623 
b22  MlNrO 

UO  93  IsJVARlilTOT 
IF (MlN)494t 493*494 
493  AMlNSAVAL(l) 

Jl=l 

UO  491  llxRtJVAR 
IF(AVAL«ll)-ARlNI492t492.491 
492  Ulsll 

AMINSAVAL(II) 

491  COfiTINUe 
MINXI 

494  CALL  lit 

lF(VAL-ARIN>93t93»94 

avalijiisval 

ACTIJIKCT 
ASUMPCIJDsSUMPC 


94 


93  CONTINUE 


XMAXlskVALil) 

JVAR1=1 

bO  96  1=2»JVAR 
IF  ( A V At  ( 1 > -XMAX 1 ) 97  > 96  • 96 
97  XMAXISAVAL(I) 

JVARlsl 
9b  CONTINUE 
60  TO  392 
623  XMAAlsO. 

dVAKl=ITOT*l 
392  IVAR2=JVARI«1 
IVAKI=JVAR1-1 
92  XMAXSXMAXl 


J1=0 

IF(IVAR1)I91>193>19I 

191  00  190  IzlilVARl 

IF i AVAL ( 1 t -XMAX ) 196 • 192 i 192 

192  XMAXSAVALil) 

Jlsl 

190  CONTINUE 

193  lF(lVAN2-dVARtl9bil96>197 

196  UO  195  1sIVAN2>JVAR 

IF ( AV AL ( I t -XMAX ) 195 t 196 « 196 
198  XMAXSAVALil I 
Jlsl 

195  CONTINUE 

197  lFIJll390>390i295 

390  00  391  KSltJVAR 

IstPOINTiKT 

CTsaCTIKI 

PRECLsaPRECLIKI 

sumpcsasumpciki 

C05TSAC05TIKI 


VALSAVALIK) 

YsaY(K) 


IIstSPIKI 
A9i  CALL  000 

IF(I0UY)91»<91«>i2 

295  IP(APReCLIJl)'-1.5-7n)3a3>323>322 
323  SUMPClSASUMPCUll 
ASUMPCIJlIsl. 

AVALIJDsO. 

GO  YO  261 

322  ISP(J1)=ISP(J1)«1 

APRLCLt J1 > SAPPCCL ( J1 > •AY ( J1 1 vANAC J /ISP ( J1 1 
SUMPC1=ASUMPC(J1> 

ASUMPC ( J1 ) = ASUMPC ( J1 I • APRECL IJl I 
AVAL(J1)=(1,-ASUMPC(J1)I/AC0ST(J1> 
IF(XMAX-AVAL(J1))510>510>261 
510  ISP(J1)  = ISP(.J1)-1 
bO  TO  323 

261  SS=SS*ASUMPC(J1)/SUMPC1 
IF  ( SS-ANORS  > 92  • 912. 912 


912  lOUTsl 

60  TO  390 
12  IsU 

lF(IZ3l400.400t401 
400  1NUMS4 

60  TO  403 
401  INUM  s 5 
403  00  250  KKKsl.INUM 

1IZ2=ISC<KKK) 
tF(lIZ2)250>250.200 

200  IF(11Z2-25>201.201.202 

201  IIRLC=1IZ2 
60  TO  203 

202  1IRECS25 

203  00  210  I5:1.IIREC 
lsl*l 

CALL  III 

210  1126115)211 

ISPAREzISPaRE*! 

CALL  OORUM 


I 


luasiiu-iiREc 
tF(IIZ3i»0iaS0>200 
350  CONTINUE 
PBAtJUSS 
10  CONTINUE 

iF(USi5e0tse0f5«i 
580  1Z3:1 

TEMPsPBA(l) 

ITEMlsITOT 

ITOTSJTOT 

NTtMPsNBASC 

NBASEsI 

ASAVE  = ANACIl) 
ANAC(1>=1. 

00  360  1=1 >b 
CSaVC(1)=CTOFI1) 

360  CTOF(1I=-10. 

UO  910  1=1»1T0T 
KE.AD(6>  FlIN.COSTtY 
910  CALL  000 


J 


remind  6 

60  TO  582 
!>81  PBOsPBAd) 

PBA(1)=TEMP 

» 1T0T=1TEN1 

1 

I NBASESNTEMP 

ANAC(l)  = A&AVE 
00  365  1=1 >5 

{ 365  CT0F(I)=CSAVE(1) 

* CALL  CFILE 

! . ) 

[ NBlsNBASE^l 

' IIITOTSO 

00  770  l=l>5 

770  LLLtltsU 

00  775  1=1 >5 

lF(ISCll)»775t775*776 

776  JJslSC(  11/25  ; 

lF<0J*25-lSC(lli716>739>73B  j 


71«  JJZJU*! 

739  IFI1>9)91*A1*725 


41  IIITOTsIlITOT^JJ 
725  LLLdIsjJ 
775  CONTINUe 

DO  717  Jsl.lX 
717  2COST(J|:0. 

00  715  Jsl.5 
IFIISCCJ) )715>715i7S5 
785  K=0 

IF (J'l) 733 #734.733 

733  JJsj-1 

DO  745  lllsl.JJ 
745  KsK+ULdll) 

734  1Z:LLL(J) 

IF  (U-4  >731.731 .732 
731  DO  755  LLsl.12 
IFACTsO 
KSK^l 

DO  753  LLlzl.NBl 

1SFaRE=K4|F*CT*1IIT0T 

1F*CTs1FACT«1 


CALL  lORUM 
DO  753  121=1.25 
753  NSFAREd21.LLl)  = lIZ0(I21) 
1F(LL-12)757.7S6.757 

756  125=ISC(J>-25*(LL-n 
GO  TO  797 

757  125=25 

797  00  755  121=1.125 

755  HR1TE(B  )INSPAREd21.LLl).LLl=l.NCIl) 
GO  TO  715 

732  K1=NBASE*IIIT0T 
DO  795  LL=1.I2 
K=Ka1 

ISPARE=K«K1 
CALL  lORUM 

IF  (LL-IZ)  781. 782.782 

781  125=25 

GO  TO  791 

782  125=1SCIJI*2S*(LL>1) 

DO  795  1=1.125 


791 


79S  HRITEia 
715  CONTINUE 


I 1I20II  I 


CALL  CFILEI 
HEklNua 
RENINO  10 
RENINO  11 
lF<lBOI950>9bO>9bl 
9bl  DO  920  JslilBD 

REAU(a  )(NS(n>Irl,Npil 
RbAO(7)  FIINtCObTfZZiHAT 
HM(NBl):NS(Ntll> 
bO  923  UltNBASE 
XI1=NS(I>*RAT 
MM(t)sXlI 

IFIXII>MM(I>)922>92S>922 

922  MM(I):MM(I>«1 

923  NS(I)=Nb(ll-MM(I| 

I>K1TE(  10  XMMdlilsltNBl) 
920  DRlTEdl  XNSIDflsltNBl) 
HEalNO  7 


RLA0(7) 

NEXINO  10 
HEHINU  11 

9b0  number  (DSiSCd) 
NUMbER(2)s1SC(2) 
number  ( 3)  sISCd) 
NUMbEHU)SISC(3) 
NUMBER(b>:ISC(i«) 
NUMbEH<b>SlSC(b) 
CTOFFd)sCTOFd) 
CT0FF<2)=CT0F(2) 
CT0FF«5>=CT0F<1> 
CT0FF(9)sCT0F(3I 
CT0FF<blsCT0F(4) 
CTOFF(6):CTOF(b> 
lF(NBAbfc-10l736»737>737 

736  KPUNCKSO 
bO  TO  73a 

737  KPUNCHSl 

73a  00  720  ISl«6 


I 

J 


T 


* -• 


T2«  jjtNumcmn 

•0  TO  imtTM«7*Si7M>7*St7M)»I 
7bt  aMITCdOtSOI 
•RITeil0i7l) 

71  FOfIMATUH  tiaHROTABU  POOL  tTEMSi//»lH  i SSHSaSC-OCPOT  IBASC  POHTIO 
lN)./> 

10<»b  NTsb 
NTl=li 
J2S2 

bO  TO  au 

762  WRJTEI10,72) 

72  format (IHOdSHBASE  REPAIRABLE*/) 

J2SJ2«1 

GO  TO  eoo 
7b3  WRITE(IO>30> 
mR1TE<10>773) 

773  FORMATdH  > ISHATTRITION  |TEMS*//*1H  1 26HQASE-0EP0T  (DEPOT  PORTION) 
l»/) 

722  NTs? 

NTlslO 


J2s2 

60  TO  eo 

7bA  kRITEdO*74) 

74  FORMAT (1HO*16HDEPOT  REPAIRABLE*/) 

J2SJ241 

60  TO  eoo 
TbS  •RlTEdO*7S) 

75  format dHO*IbHBASE  CONSUMABLE*/) 

J2su2«l 

60  TO  BOO 
766  liRITEdO*30) 

■RITEdO*76) 

7o  FORMATdH  *19HSYSTEM  STOCKS  ITEMS*/ *1HO*16HOEPOT  CONSUMABLE*/) 
J2s2 

auO  nTs6 

NTisa 

so  OEMsCTOFFd) 

IF  IJJ)  720*720*7000 
7000  DO  721  JsI*JU 
J2  s U2  ♦ 1 


i 


1 


RiAOINTt  FIIN.COST.ZZ>R«T.*NOMEtFSC>«n>t«FSCM,COOM»UNlT>CSilC> 
CMNT«CMACC>AMRFtRPF>iau>  T3»RCDC» IPFRiCT.NCC  •PART.INSaTY 
Z • LRC>CO«SYM 
IF(j2-1ZI7Z9(729i7Z6 
726  J2si 

kRlTEIIOtSOI 

30  FOftMATIlH1.2Xf«HFIIN.5Xtl2HNOMENCLATURE>15X>3HFSN>13X.15HREFeRENCE 
1 NO.  .6X.  36HFSCM  MODEL  IMIT  MCE  MAINT  MACCi/tl 

IH  >U2X|29HC00E  ISSU  COE  CODE  COOEt/tiH  •9X.56HMRF  RPf 

1 OUAN/  UNIT  PRICE  LRC  TaT  RULES i7X>S9HPAR  BU  7 
IS  9 to  11  12  13  19  IS  16>/*1H  •26Xf«HPR0V»22X. 

2 3H1MA>SX»i»HCOOE.SX«3HPLO/15H  aPPLICaTIONS^SSX.SH  INS  OTY//) 
729  lF(l-b)lS0.150»lSl 

150  HEADCNIl  MNS(Kt ) .Kl:l >NB1 1 
DO  1150  Klsl>NbASE 
tFiCT*ANAC(Kl>>OEM|llSl. list* 1152 

1151  lNb(Kl)=lAST 
60  TO  1150 

1152  INDIKDsIBLNK 
115u  CONTlNUe 


WHITEI10t33)  FlIN.ANOMt.FSCi  FUN. PART.  FSCM.COOM.UNIT. 

1 CSRC.CMNT.CMACC.AMRF.RPF.I0U.C0ST.LRC.T3.RC0E.IPPe. 

2 NS(NB1).(NS(K1).IN0IK1) .Klsl.NBASE) 

33  FOHHATdH  .A3.A4.2X.5A9.5X.A4.1H-.A3.1H-.A4.«X.SA«.2X.A9.A1. 

1 1X.A4.A3.2X.A2.3X.A2.4X.2A1.7X.A1/ 

2 4X.2I3X.F7.3).IB.F12.2.2X.A5..F6.0.2X 

3 A4.A2.A4  .IX. 15. IX.  16. 10(14. All  ) 

kRlTE(I0.34)APPL  .INSOTY 

DO  110  Klsl.NBASE 

I 10  ZCOST (K1 I sZCOST (K1 I «C0ST*NS(K1 I 

373  lF(HCOt(l>-NZ2Z)350.350.351  ’ 

350  AC=C 

60  TO  1649 

351  ACSA 

1649  lFlt-3)1651. 1650. 1650 

1650  K2sl 

60  TO  1652 

1651  K2=2 

1652  IF ( APPL ( 1 . K2 I - I BLNKS ) 352 . 1653.352 

1653  APPLd.KZIsX 


9S2  1F«KPUNCHI37*»97»»376 

37«  MniTC(IP>979>C0«SYM 

1 >NCC>FItN.(APPLIKl>K2>.Klsi.2l,AC.(NSlKl)>Klsl.NB«SE) 

97S  POMMATC  A2  •A2>A3>A«tlX>SHAO009»2X>A«tAS»3X»«HO00S>lX«Al>9Ul 

60  TO  153 

376  «R|TE(IP>377)  C06SYM.  NCC>  PIIN.  ( APPLIK1«K2) >Klsl»2) . ACt 

1 (NS(K1)>K1S1>9>>  C06SYM>NCCtFMN>  (APPL(K1>K2)  >Klrli2)  > NSIlOl 

377  F0HMAT(  A2  •A2>A3«A»>1X>SHA0009>2X»A«>A3>SX»4HOOOS«XX>A1>9U/ 

1 2A2tA9>A«>lXt9HA0009>2X>A4>A3i3X«4HC007>lXtI4) 

60  TO  153 

151  REAUCB  )NS(NB1I 

«f(ITE(10.33)  FllN.ANOMEtFSC*  FIIN>PaRT.  FSCMiCOOM>uNITt 

1 CSHC>CMNT>CMACC>AMRFiRPF»I0U,C0STiLRC>T3»RC0E>lPP0t 

2 NS(NBl) 

«RlTE(t0t34IAPPL  • tNSQTY 
34  FORMAT (1X> 10 (A4iA3t?X)>SX> 17/) 

153  2C0ST ( 1 1 ) sZCOST (11) «COST*NS ( NBl ) 

721  CONTINUE 
(20  CONTINUE 


j 

I 

1 

! 

1 

■j 


3 


I 


IF (N6) 1560 >1560 1 1550 
C PRINT  P2  ITEMS 
iibii  REalNU  15 
MRirE(IO>30) 

■R1TE(I0>79) 

79  FORMAT (9H  P2  ITEMS/) 

U2S2 

DO  1551  K1s1>N6 

REA0(15)  FIlN>IOC>FSC>NCCfFSCM>CODM>UNIT>RCOE>COST>PL>Z>APPL>10U, 
1 CSRC>CMNT>CMACC>IPPe>RRR>ANOME>PART>AAAtAAA>AAA)AAA>AAA>AMRF> 

1 RPF  tINSOTYfURC 
J2SJ2»1 

IF(J2-12)1553>1553>t552 

1552  J2sl 
aHlTE(IO>30) 

1553  MR1TE(10>33)  F 1 IN# AN0ME>FSC>  F1IN>PART>  FSCM>COOM>UNIT> 

1 CSRC>CMNT>CMACC>AMRFfRPF>I6U>C0ST.LRCtT3>RC0C>IPP0 

1551  «RlTEI10>34)APPL>lNSeTY 
HE41N0  15 


156U  ■RirE(IO>90)PBU>(PB*<<i)>Jxi>NBASE) 


9U  FOMMAT(///«lM  illFll.Si 


•i<ITE(10«TS0)ZC0ST(llltlZC0ST(J).J81tNBASE> 
7S0  FOMMAT«lH0>ilF11.0l 
REklNO  !> 

REklNO  t 
RENINO  1 
REMIND  » 

remind  10 

Abl  STOP 
END 

MC.NU 

MLOAO  NMV  EDITI.EDIT 
Nt.l'U 

HLOAO  NMY  PHOttA*PROei 
Mb  No 

HLOAO  NMY  PKOou'FROBZ 


I 


COST-CONSTRAINT  PROGRAM 


The  cost-constraint  program  (see  Figure  D— 1)  consists  of  the  job  steps  COST  1 and 
COST  2. 

1.  JOB  STEP  COST  1 

The  input  to  COST  1 consists  of  a one-letter  parameter  (C  or  R,  which  indicates 
whether  the  run  is  for  consumables  or  for  repairables),  the  total  number  of  bases  being 
considered,  a column  entry  associated  with  each  individual  base  (the  lOL  column  assigned 
for  spares  determination  for  that  base),  the  cost  constraint,  and  a tolerance  within  which  the 
best  probability  level  relative  to  the  number  of  dollars  allotted  is  to  be  computed.  As  in  the 
probability  program,  Tl,  T2,  T3,  T4,  T5,  T6,  ANORS,  and  the  data  for  comparing  average 
monthly  demands  with  the  demand-floor  cutoff  criteria  are  also  part  of  the  input.  In  this 
case,  ANORS  represents  only  the  desired  probability  of  q}ares  sufficiency;  whether  this 
prol»bility  level  can  be  attained  will  depend  upon  whether  enough  spares  can  be  bought 
within  the  cost  constraint.  The  flying-hour  programs  for  desired  columns  are  also  inputted. 

In  COST  1,  the  proportionality  factors  for  computing  average  demand  for  site  spares, 
average  demand  per  month  for  demand-floor  consideration,  and  the  average  demand  for 
back-up  spares  are  calculated  as  in  PROBl  (first  part  of  probability-constraint  program)  for 
all  of  the  items  (either  the  consumables  or  the  repairables,  depending  upon  which  constraint 
is  being  used).  The  multiplicity  of  bases  to  particular  columns  is  determined  — i.e.,  how 
many  bases  have  a column-7  flying-hour  program,  how  many  have  column  8,  etc. 

2.  JOB  STEP  COST  2 

COST  2 uses  the  average  demands  for  spares  computed  in  COST  1 to  calculate  optimal 
quantities  of  spares  based  on  two  considerations:  the  desired  probability  of  spares  suffi- 
ciency and  the  maximum  dollars  that  can  be  used  to  purchase  q>ares. 

This  program  computes  optimum  quantities  of  spares  in  a process  that  essentially  com- 
prises successive  probability-constraint  operations.  A probability-constraint  run  is  made  at 
the  desired  probability  level  (entered  by  the  program  user),  and  the  total  cost  of  the  spares 
determined  is  compared  with  the  cost  constraint  (again  entered  by  the  program  user).  If  the 
cost  is  within  one  percent  of  the  entered  constraint,  the  program  stops.  If  the  cost  exceeds 
the  entered  constraint,  then  a second  probability  run  is  executed,  with  the  entered  proba- 
bility constraint  decreased  and  the  comparison  of  costs  made  again.  This  continues  until  a 
run  is  made  that  results  in  a cross-section  of  spares  whose  cost  is  less  than  the  entered  cost 
constraint.  At  this  point  the  probability  constraint  used  is  increased  by  one-half  the  value  of 


D-1 


the  previous  decrease  (example:  go  from  0.95  to  0.85,  then  to  0.90),  and  a run  is  made 
again  and  cost  comparisons  are  made.  This  continues  until  the  partitioning  described  above 
is  less  than  a user-entered  tolerance.  (Warning!  This  tolerance  must  never  be  less  than  0.01.) 


Ultimately  the  program  will  stop  with  a cross-section  of  spares  whose  cost  is  within 
approximately  1 percent  of  the  cost  constraint.  When  the  allowable  tolerance  is  reached,  if 
the  total  cost  is  greater  than  the  constraint,  the  spare-parts  quantities  are  considered  opti- 
mal; if  the  total  cost  is  not  greater  than  the  constraint,  then  the  probability  level  is  raised 
and  spares  are  recomputed  so  that  the  total  cost  will  be  slightly  greater  than  the  constraint, 
hence  giving  an  optimal  solution. 

After  spare-parts  quantities  are  computed,  they  are  printed  for  each  item  together  with 
Description  data  exactly  as  in  the  probability  program,  except  that  in  some  cases  where  no 
sites  are  assigned  to  a particular  column,  O’s  are  printed.  Descriptive  data  are  printed  for  P2 
items.  This  is  followed  by  a summary  that  shows  for  each  column  and  for  the  backup  the 
total  cost  for  each  column  and  the  probability  of  spares  sufficiency.  The  overall  cost  of  all 
spares  is  also  indicated. 

Program  logic  is  shown  in  Figure  D— 2,  which  is  followed  by  a complete  program  listing. 
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<cod  Hesv  ofiLit 


UNIVAC  «90/il91/«92/*9it  COBOL  COMPILATION  OaTE-70090 


TiMe-oo:oo 


ooooto 

000020 

000030 

000090 

000090 

OOOObO 

000061 

000070 

000079 

OOOOSO 

000090 

000100 

000101 

000102 

000109 

000104 

000109 

000107 

OOOllO 

000130 

0U0190 

000160 

000161 

000170 

000171 

000172 

000179 

000160 

000190 

000200 

C00209 

000207 

000210 

000220 

000290 


IDENTIFICATION  DIVISION. 

PB06RAM-ID.  UNIVAC  ASO. 

ENVIRONMENT  DIVISION. 
configuration  SECTION. 

SOURCE-COMPUTER.  UNIVAC-492. 
OBJECT-COMPUTER.  UNIVaC-492. 
INPUT-OUTPUT  SECTION. 

FILE -CONTROL. 

SELECT  SPARE  ASSIGN  TO  J URUM. 
SELECT  OF  ASSIGN  TO  I DRUM. 
data  DIVISION. 

FILE  SECTION. 

FD  SPARE 

LABEL  RECORDS  OMITTED 
ACCESS  RANDOM 
ACTUAL  KEY  IS  LL 

data  record  is  NSPARE. 

NSPaPE  picture  X(126), 

OF 

label  records  omitted 

ACCESS  RANDOM 
ACTUAL  KET  IS  JJ 

data  record  is  AA. 

AA  PICTURE  k(69). 

morking-storage  section. 

77  JJ  SIZE  S computational  VaLUE  ZERO. 
77  LL  SIZE  5 COMPUTATIONAL  VALUE  ZERO. 

common-storage  section. 

77  BB  PICTURE  X(65). 

77  II  SIZE  5 computational. 

77  NSl  PICTURE  Xtl25). 

77  KK  SIZE  5 computational. 

procedure  division. 

OFILE. 

OPEN  I-O  OF. 


01 

FD 


01 


000240  enter  return-line  OFILE. 

0002SL  enter  COBOL  OFILE. 

000260  000. 

000261  MOVE  II  TO  JJ. 

00026S  READ  DF  INVALID  KEY  GO  TO  ENDUP. 

000270  WRITE  AA  FROM  BB  INVALID  KEY  GO  TO  ENDUP. 

000280  ENTER  RETURN-LINE  000. 

000290  ENTER  COBOL  000. 

000900  III. 

000901  MOVE  II  TO  JJ. 

000910  READ  OF  INTO  BB  INVALID  KEY  GO  TO  ENDUP. 

0U0920  enter  return-line  III. 

000990  ENTER  COBOL  III. 

000940  CFILE. 

0009S0  CLOSE  OF. 

000960  enter  RETURN-LIt4E  CFILE. 

000970  ENTER  COBOL  CFILE. 

000960  ENDUP.  DISPLAY  II.  'INVALID  KEY'. 

000990  STOP  RUN. 

000400  OFILEI. 

000410  OPEN  I-O  spare. 

000420  ENTER  RETURN-LINE  OFILEI. 

000490  ENTER  COBOL  OFILEI. 

000440  OORUM. 

000450  MOVE  KK  TO  LL. 

000460  READ  SPARE  INVALID  KEY  GO  TO  ENDUP. 

000470  WRITE  NSPARE  FROM  NSl  INVALID  KET  GO  TO  ENDUP. 
000460  enter  return-line  OORUM. 

000490  ENTER  COBOL  ODRUM. 

000500  lORUM. 

000510  MOVE  KK  TO  LL.  ^ 

000520  READ  SPARE  INTO  NSl  INVALID  KEY  GO  TO  ENDUP. 
000522  ENTER  RETURN-LINE  IDRUM. 

000924  ENTER  COBOL  IDRUM. 

000990  CFILEl. 

000940  CLOSE  SPARE. 

000550  enter  return-line  CFILEl. 

000560  ENTER  COBOL  CFILEl. 


vehgc 
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Nt^OK  YX  CALVAL 

FOHTHAN  IV  COMPILATION 
SUbROUT INC  CALVAL (ITOT • AN0NS> ANAC (C TOFA • nTTPE • JVaR I 
COMMON  PRECL>SUMPC>COST>Y»VAL>II>CTf I 
DIMENSION  CT0FA(S).MTYPE(5) 
lOS^ 

IF ( ITOT'JVAR )6b0  >650 1 10 
in  PlSANORS 
K s 1 

4b2  S = Pl**(l./ITOT) 

47S  DO  400  I SK.ITOT 

call  III 
XL  = Y4ANAC 
EXPoEH=CT*ANAC 
UO  300  J=1>S 

IF (l-NTYPE(J>t 301 >301*300 
3U0  CONTINUE 
301  tTOF=CTOFA(J» 

IF(CXPOEM-CTOF)400>400>401 
401  IF  (XL-30.)  40S>400>400 

400  continue 


1 

700SO  Sj 


i 


4RnC(10>302> 

302  F0Ri»IAT(29H  aLL  ITEMS  BELOW  DEMAND  FLOOR) 
STOP 

40b  SUMPC  = CXP(-XL) 
iKtC  = I 
PMtCL  = SUMPC 
II  = 0 

420  IF  (SUMPC'S)  41U>41S>41S 

410  II  = 11*1 

PRECL  3 PRECL*XL/It 
IF  (PRECL-l.E-35)  465*465*470 

465  4 3 I * 1 

60  TO  475 

470  SUMPC  3 SUMPC  * PRECL 

60  TO  420 

415  VAL  3 (1. -SUMPC) /COST 

505  VALSAV  3 VAL 

CALL  000 
PMOUUC  3 SUMPt 
00  425  lsl*lTOT 


i 


1 


'i 


I 


IF  (I-1REC>  *30f«2S«430 
430  CALC  111 

IlXPC)£MsCT«ANAC 
00  350  J:I>5 

IF(I-NTTPE(J)l35Ii35t>3S0 

350  CONTINUE 

351  CTOFsCTOFA(J) 

IF ( eXPOEM-CTOF |429>429>432 
429  II  : 0 

60  TO  427 

432  VAL  = VALSAV  * COST 
XL  s Y*ANAC 

IF(xL-200.)S00>416>416 
416  II  = XL  4 1.645  * SORT(XL)  * .838253 
427  EUMPC  = 1. 

PRtCL  = 1. 

VAL  s 0. 

GO  TO  490 

500  SUMPC  = EXP(-XL) 

PHECL  = SUMPC 


II  s 0 

445  IF  (l.-SUMPC-VAL)  435.435.440 

44U  II  = Il4  1 

PRECL  - PRECL»XL/II 
IF  (PBECL-l.E-35)  480.480.485 
480  VaL  s 0. 

SUMPC  = 1. 

11  = Il-l 
60  TO  490 

485  SUMPC  = SUMPC  * PRECL 

60'  TO  445 

435  PROOUC  = PHOOUC*SUMPC 
VAL  = (1. -SUMPC) /COST 
490  CALL  000 

425  continue 
600  lF(PROOUCI65O.650.6ni 
bOl  IF(PROOUC-ANORS>  450.455.455 
455  PI  X Pl-.l 

IF  (Pl-.05>  650.460.460 


460  F2  X VALSAV 


f I 

' I 


S = P1**(1./IT0TI 

I : IREC 
CALL  III 

XL  = Y«ANAC 

b20  IF  (SUMPC-SI515>519>S10 

&10  IF  (II)  5I9tSI9.SI6 

516  SUMPC  : SUMPC-PRECL 

PRLCL  : PRECL*II/XL 

II  : II-I 
60  TO  520 

515  II  = II  « 1 

PRECL  = PRECL*XL/II 
SUMPC  s SUMPC  ♦ PRECL 
519  VAL  = (1. -SUMPC) /COST 

IF  (F2-VAL)  605ti»55>605 
bUS  VALSAV  s VAL 


PRODUC  = SUMPC 
00  525  I=1>1T0T 
IF  (I-IREC)  530>525t530 


call  III 

IF  (II)  524>524>526 
VAL  = VALSAV*COST 
XL  s Y*ANAC 
EXL  s exp (-XL) 

IF  (EXL-l.E-35)  525>525f541 
IF  (PKECL-l.E-35)  532>532»545 


SUMPC  = EXL 
PRECL  = EXL 

IF  (l.-SUMPC-VAL)  536>536>240 
II  s II  * 1 
PRECL  s PRECL*XL/II 
IF  (PNECL-1.E-3S)  280>260>2aS 


SUMPC  s 1. 

II  : II-  1 
60  TO  590 

SUMPC  s SUMPC  * PRECL 


60  TO  245 


W IF  (I.-SUMPC-VALI  S«0>9M»S3S 
5<tU  IF  (11)  5S6<9M>5«6 
946  SUMPC  s SUFIPC  - PRECL 
PRECL  s PRECL*I1/XL 
11  s U-l 
60  TO  545 

535  II  : II  4 1 

PHECL  = PRECL*XL/1I 
SUMPC  s SUMPC  ♦ PRECL 

536  VAL  = (I. -SUMPC) /COST 

524  PRUOUC  = PROOUC  •SUMPC 

590  call  000 

525  continue 
60  TO  600 

650  ANORSlsANORS 

651  SUMLOOSO. 

00  601=1»ITOT 
CALL  III 
UO  380  J=lf5 

IF  (I-NTYPE(J))  381>381>380 


380  CONTINUE 

381  CTOf=CTOFA(J) 

EXP0EMsCT*ANAC 

IF(EXPOEM-CTOF)6050>6050>382 

bOSO  11=0 

SUMPCsl. 

VALsO. 
bO  TO  69 

382  II  = 0 
XL=ANAC*Y 

IF(XL-200.)700>70t70 
70  II  = XL41.64S*SeRT(XL)4. 838253 

SUMPC  = !• 

PHECL  R.  1. 

V*L  s 0. 

60  TO  69 

700  SUMPC  s EXP(-XL) 

PRECL  s SUMPC 
VALs(l.-SUMPC)/COST 
IF  (SUMPC-AN0RS1)61i6«>69 


aFOH  YX  COSTA 

FORTRAN  IV  COMPILATION  70050  SJ 

COMMON  PRECL • SUMPC . COST . Y • VAL • 1 1 , CT  > I 
DIMENSION  ANAC(10I>  ISC(5).  RCDE(3)>  AN0ME(5)i  PART(5>tCTOF 
1 15) 

DIMENSION  MULTIIO) >NOMULT( 10) • ISCl (5) 
EOUlVALENCEIISC(I)>IBO)>(ISC(2>«IB>>(ISC(3)>ID)t 
I (ISC(<*)tIC)>(ISC(S)>IOC) 

INTEGER  CMNT(2) 

Integer  fsc>unit«rcoe>csrc>  cmacc>anome.part 
INTEGER  FIIN(2) >FSCM(2) •CODM(2l «APPL(2« 10) 

INTEGER  COL>R*C>RORC  •LRCiCOGSYMtTHOV 
REAL  MONTHS 1 5) > MO 
DATA  NZ2Z/4HN2ZZ/ 
data  R/lHR/tC/lHC/  tTMOW/2H2V/ 


C READ  LENGTHS  OF  EACH  DATA  AREA 


t 


I 


RCmino  12 

RUINO  13 
REMIND  1« 

I0S2 

CALL  OFILE 
REMIND  b 
REMIND  T 
NOCOLsO 

REAU I 1 • 60 1 I RORC I OOLaR f NBASE I TOL 

601  F0RMAr(At>9XtEi2.S>8X»I«»6X«F6.SI 
DO  b02  JsltlO 

602  MUCr  (J)=0 

ONE  PCTs.OKOOLAR 
DO  q04  JsI.NBASE 
HEAD(l>b03>C0L 

603  FORMAT! 12) 

C0L=C0L>6 

604  MULT ( COL )=MULT( COL) 

READ(l>b)  T1<T2>T3>T4>TS>T6>AN0RS 
REAUdfS)  (CTOF)  I)  •MONTHS!  I)  >1=1*6) 


J 

J 

J 

j 

1 


READ! 1*5) !ANAC!I)>I=1>10) 

5 FORMAT!tOE8.1) 

tF!RORC-R)201>202>201 

201  IF!RORC-C)20S>204>203 

203  MR1TE!IO>301) 

301  FOHMAT!10X.38HUNSPEC1FIEO  REPAIRABLES  OR  CONSUMABLES) 
STOP 

202  ISC1!4)S0 
1SL1!5)=0 
lSCl!l)slaO 
ISCl!2)sIB 
ISCl!3)sI0 
ITDT=IBO«IBtID 
JTOTSITOT 

60  TO  210 

204  1SC1!1)S0 
1SCI!2)S0 
ISC1!3)30 
lSCl!4)sIC 
ISC1!5)3I0C 


i.i.finwiin 


L I 


» i 


k ' 


I 


i 

i 

■I 
. t 


I 

I 


• • 


ITOTSIC 
JTOTsIC«IOC 
210  00  216  JalflO 

IP(MUtT(JI I21S>216>21S 

215  NOCOL3NOCOL»1 
ANACINOCOLIsaNACU) 

NOMULT  I NOCOL > SMULT (J I 

216  CONTINUe 

!>■  (JTOT)  4S0>«S1>450 
451  STOP 

450  1=0 

105=9 

DO  8 U=l>5 

IDS  = lOS  ♦ 1 
NUMREC=ISC1(0) 

IF  (NUMREC)  OtBilS 
15  M0=M0NTHS(J) 

00  7 K=l» NUMREC 

1 = 1*1 

READ  (IDS)  FlINf l00«FSC>NCC>FSCM.C0DM>UN|T«RC0E>C0ST>PLfZi 


I 

i 

i 

1 


i 


I 

[ 

1- 

j 

h 

r 


1 APPLdQUtCSRCiCMNTfCMACCMPPOtRRRO.ANOME*  PART  (AAA. 

2 AAB>AAOfAAE>AAF>AMRF.RPF>  INSOTY  ,LRC>COSSTM 
IF(C06SYM-T«0V)9>17>9 

17  ISC1(U)=ISC1(J)-1 

lF(J-4)S10tS10>511 

510  XT0T=IT0T-1 

511  JT0T=JT0T-1 
1=1-1 

60  TO  7 

9 CONI  s AAA  • T3 
C0N2  s AAB  * T4 
C0N3  = 3.  • 2 • PL  • Tl 

C IN  the  calculations  WHICH  FOLLOW  T IS  A CONSTANT  OF  PROPORTIONALITY 
C FOR  site  spare  EXPECTED  OCMaNO*  CT  IS  A CONSTANT  OF  PROPORTIONALITY 
C FOR  the  EXPECTED  DEMAND  CUTOFF  CRiTERIONt  22  IS  THE  EXPECTED  DEMAND 
C FOR  BACKUP  SPARES 

BO  TO  (1001»1002«1003«1004>100S)tJ 

c base-depot  item 

1001  Ts(C0Nl*C0N2l  /SOOO. 

22z(AAF*CON3*AAD*IT2*T6/30.*CON3ll/10e.*RRRQ 


1 

* 


1 

* i 

►i 

\ 

. 1 
’ 'i 


■1 


CTs(Mm«8l  •M/too. 

C RaT  tS  RCRCeNTAK  Of  SITE  SR«RCS  ASSIMCO  TO  OCROT  FOR  SASE-OEPOT 
C ITEMS.  The  other  spares  are  the  base  portion 

RAT  s C0N2/(C0N1  ♦ C0N2) 

MRITECTI  FIIN.C0ST.Z2fRAT»AN0ME.FSC*APPL«FSCMtC00M.UNIT.CSRC. 
i CMNT.CMACCtAMRF.RPF.IOUiTSfRCK.IPPO.CTiNCCtPART.INSOTT.LRC 
SO  TO  610 
C t>ASE  item 

1002  YsCONl/3000. 

ZZsAAF  aCONS/ 100 . «RRRQ 
CTsAAA*MO/100. 

60  TO  610 
C DEPOT  ITEM 

1003  YZCOH2/3000. 

ZZ=AAD*(T2*T6/30.«CON3l/100.«RRRe 

CTsAAB*MO/100. 

60  TO  610 

c consumable  item 

1006  YsAAB*T5/3000. 

CT=AAB*M0/100. 


r 

r 

f 

I C UEPOT  consumable 

lOOS  ZZ:AA0*PL*T1/33.333*AAE*PL/6. 

610  IF(RC0E(l)>NZ2Z>6llt611.612 

611  ZZsO. 

612  MRlTEtb)  FllN.COST.ZZ.RAT.ANOME.PSC.APPLiFSCMtCODM.UNlT.CSRC. 

1 CMNT.CMACC.AMRFfRPF.I6Ut  TS.RCOE.IPPO.CT.NCC.PART.INSOTY.LRC 

I 

IFd-ITOTIZ.Z.T 
2 CALL  000 

7 CONTINUE 

8 CONTINUE 
MERINO  6 
MERINO  T 
remind  10 

REMIND  11 


DFOR  YX  COSTS 


« ■ 


FORTRAN  IV  CONPILATION  700SO  Sj 

COMMON  PRECL.SOMPC.C0ST.y.VALfII,CT.I.Il20C25»tISPARE 
DIMENSION  INOIIO) 

DIMENSION  ANACdOI.  ISCtSIt  RCDEON  ANOME(Si>  PARTCSd 
I LLL(SI> 

1 PBA(10>>NSPARE(2SdI>«NS(Ii).MM(ll)>NuMBERI6)  I 

dimension  NMULT(10).MU(.T(IOI.TCOST(10>>NS1(IO>>ANAC1(10I.TCOSTI(10 
I )«PBA1II0)>ISCI(5) 

UIMENSION  AVAL(SOOI>ASUMPC(SOO)>APRECL(SOOI>ACOSTISOO)tAY(SOO)t  j 

1 lSP(500l>IPOINT(SOOt>ACT(5OO)  j 

DIMENSION  NTYPe(b)>CT0FI5)>CSAVE(5iiCT0FF(6>  ] 

DIMENSION  YARRAYI200)  | 

E0DIVALENCE(ISC(1)>IBD)  j 

■1 

REAL  INCR 

integer  FIIN(2) >FSCM(2I >C00M(2> •APPL(2>10) 

INTEGER  CMNT(2) 

Integer  fsciUnit>rcde>csrc>  cmacc>anome>part  .lrc 

i 

data  IBLNK/IH  />IAST/1H*/  1 

HEAO(I>I492)JVARO 

1492  format (15)  j 

1 


10s2 

CALL  OFILE 
CALL  OFILEI 
remind  5 
REMIND  6 
remind  7 
remind  G 
remind  11 

RE AO ( 1 1 1 1 SC 1 > I SC . NB aSE • MULT • I TOT > JTOT • ONePC T > DOLAR > CTOF t ANORSI > 
I TOL  (NG 

RE  AO  ( 1 1 ) ( ANAC  ( J ) > NMULT  ( D ) • JSI  t NB  ASE ) 

REMIND  II 
NYNUMsITOT/200 

1F(NTNUM*200-1TOT)I5TO>IS7I>ISTO 

1570  NTNUMsNYNUM«t 

1571  NYNUMIsNYNUM-I 
INCRS.I 
LESSSO 
ANOMSxANORSI 


KIMO 


DO  »ilO  JsltlO 


1 


<»3«  ANACKJtsO 
60  TO  *60 

439  KlsKl»l 
*N*CllJ)sftN*C(Kll 

440  CONTINUE 
NTYPEIltsISCd) 
NTYPE(2)slSC(it4NTYPC«ll 
NTYPE«3)=ISC<3)*NTYPe«2l 
NTYPC<4)=IT0T 
NTYPE(S)sJTOT 

DO  301  JsitNBASC 
TC06T(J|sO. 

301  PBAIUISO. 

IF  <JT0TI  490>45I.4S0 
4b t STOP 

450  ISPAREsO 

IF  (I TOT)  900 >500 >449 
449  123  = 0 


902  00  10  U=1>NBASE 

ANACJ:ANAC(J) 

TCJ=0. 

1F(JVAR0>IT0T)913>919>S90 
990  UVAKsITOT 
GO  TO  919 

913  JVAKsJVARO 

919  CAU.  CALVALI1T0T>AN0RS>ANACJ>CT0F>NTYPE>JVAR> 
lOUTsO 
SSsl. 

00  896  U1>1T0T 
CALL  III 

096  SSsbSaSUMPC 

IF(bS-AN0RS)9l4>12>12 

914  DO  100  IsliJVAR 

call  111 

AVALIIISVAL 

ASUMPCIliaSUMPC 

APRECLIDsPRCCL 

ATIllsT 


I 

I 

«» 


kCOSTlllsCOST 
ISPtDsII 
ACTdIsCT 
100  1P0INT(I)SI 
JV*HlsJVAR«l 

IFIJVARl«IT0T»622>622>b23 
622  MINsO 

DO  93  IsJVARlflTOT 
IF(MIN>i»9«f«93ii»9« 

993  AMlNSAVALIl) 

JlSl 

00  991  Ils2fJVAR 
IF(AVAL(I1)-AM1N)992>«92««91 
492  JUll 

AMIN=AVAL<I1) 

491  CONTINUE 
MINsl 

494  CALL  III 

1F(VAL-AM1NI93>93>94 
94  AVAL<Ul>sVAL 


ASUMPC(Jtl=SUNPC 

APRECL(J1I=PRECL 

ACOSTIJDSCOST 

AVIJlIsr 

ACTIUDsCT 

ISP(U1I=I1 

IP01NT(U1>31 

MINsO 

93  CONTINUE 

XMAXlSAVALdi 

JVAHlSl 

UO  96  1s2«JVaR 
lF(AVAL(t)-XMAXl)9Tt96>96 
97  XMAXlsAVAtlll 
JVARlsl 
96  CONTINUE 
60  TO  392 
623  XMAXlsO. 

JVARlSlTOTtl 
392  IVAR2sUVkRl4l 


I 

I 


IVMlSJVMl'l 
9a  IMAMXNAXl 
JUO 

IFilVMlil91tl99a9l 
191  DO  190  UiaVARl 

IF  I X V XL  1 1 1 -XMXX 1 190  • 19a  1 19a 
19a  XMXXSXVXLdt 
Jisl 

190  CONTINUE 

193  lFtiyxHa-JVXR>196>196«197 

196  DO  19S  IslVXRatJVXR 

IF  ( XVXt  ( I ) -XMXX 1 19S  • I90t  190 
190  XMXXSXVXLIII 
Jlsl 

195  CONTINUE 

197  lF(Jl)390t390>295 
390  DO  391  Ksl.JVXR 

IslPOINTIK) 

PRECLsxPRECL(K| 

SUNPC=XSUMPC(K> 


! 

L_ 


C05TsaC0ST(K) 

VAl.=AVXL(K> 

CTSXCTIKI 

T:XT(K) 

llsISPIK) 

391  CXLL  000 

lF(10UT)91i»«914fl2 

295  IF  I XPRECL ( J1 > •! .E>35 1 323 • Sa3 • 322 
323  SUMPClsXSUMPCIUl) 
xSUMPCIJlIslt 
XVXU(Jl)sO. 

GO  TO  261 

322  ISP(UllsISP(Uli*l 

XPNECLIJl)sXPRECL(UII*XriJl>*XNXCJ  /ISPlJli 
GUMPCISXSUMPCIUI) 

XSUNPC I J1 I sxSUMPC ( J1 > ♦XPRECL ( J1 I 
XVXL I J1 I s I 1 t-XSUMPC I J1 ) I /XCOST ( J1 I 
IF  I XMXX-XVXL I J1 M 510 • 510 1 261 


510  lSP(Jl|alSPIJll-l 
00  TO  323 


SSsSS*ASUMPCU1)/SUM»C1 

lF(SS-ANMSl92t9l2»«12 


* 1 

t t 

; i 

^ I 


' 


r 


I 

I 


«• 


« • 


■ » 


912  iOUTsl 

60  TO  290 
12  ISO 

1F(I23>900>I»00>«01 
900  INIMS9 

60  TO  903 
901  INUM  s 5 
903  DO  2S0  KKKsltlNUM 
IU231SC(KKK> 
lF(ltZ2)2SO>290>200 

200  IF(!1Z2-25I201>201«202 

201  IIHeCslIZ2 
60  TO  203 

202  I1HECS25 

203  00  ^10  ISsl.IIREC 
IsUl 

CALL  III 
TCJsTCJ9ll*COST 


I 


210  ItZ<il<15)sII 

ISPaREsISPARE'^1 
CALL  OOKUM 
II22SI1Z2-11REC 
IF(II22l250>2SOf200 
2S0  CONTINUE 
PBAIJIsSS 
10  TCOSTlU)sTCJ 

IF(IZ3)S80.SaOt581 
S80  IZSsl 

TEMPsPBAII) 

ITEMlsITOT 

ITOTsjTOT 

NTEMPsNBASE 

NBASCsl 

ASAVE  3 ANAC(l) 
ANACUISI. 
TCTEMPsTCOSTdl 
UO  360  Isl.S 
CSAVEIDsCTOFIII 


MO  CTOfdtS'lO 


HUINO  12 

IF  t ITCMl ) 1S00> IBOOi 1501 
1501  RCMINO  12 
ISO 

00  1572  lYsltNYNUM 
IFIIY-NYNUM»15T3t  ISTOtlBTS 

1573  NHCCYS20Q 
GO  TO  1575 

1574  NRECYstTEMl-200*NYNUMl 

1575  DO  010  NYsltNRECY 
lst«l 

CALL  III 
YARHAYiNYIsY 
REA0(5lFllN<C0STiY 
910  CALL  000 

1572  HRITE(12> (YARRAT(NYS) >NYSs1»NRCCY) 
1500  IF  I ITEMl'lTOT 1 1503> 1S02> 1502 
1503  1TEM2SITEM141 

DO  911  lsITEM2>lT0T 


READ(6)FltN>C0STiY 
911  CALL  000 
1502  remind  12 

remind  6 

GO  TO  562 
561  KBUsPbAIII 
PBA(l)sTEMP 
TCBUsTCOST(l) 

TC0ST(1)STCTEMP 
ITOTslTEMl 
N8A5ESNTEMP 
ANACdl  s ASAVE 
UO  365  lsl>5 
365  CTOFClIsCSAVEIl) 

TTCOSTsO. 

DO  110  ISltNBASE 

110  TTCOSTsTTCOST*h*M.TCII*TCOSTIH 

ttcoststtcostmtcbu 

diffsabsittcost-dolari 

IFIOlFF-ONCPCTIlOOOilOOOflU 


112  lF(TrC0ST>l)0t.AR>l>l«m>122 
121  UESSsl 


IF  ( ANORS-ANMSl ) 127 1 1000  > 1000 
127  INCRx|NCR*.0 

ANOHSsANORS^INCR  \ 

IF ( INCR'TOL t 120 • 120 • 005 

120  ANORSsANORS^INCR  < 

i 

60  TO  405  j 

122  lF(LESSll25>125tl26  ] 

125  ANORSsANORS-INCR  | 

1FUNORS-.05)156>136>405  j 

4US  IF(ITOTt450>450<404 

404  1:0 

00  406  1Y:1>NYNUR 
1F( 1 Y-NYNUM) 1503 > 1504 • 1503 

1503  MRECY:200 
60  TO  1505 

1504  NRECYsITEM1-200*NYNUM1 
REAU ( 12  H Y ARRAY « NY ) ,NY:1 . NREC Y ) 

1505  DO  406  NYsltNRECY 


1=U1 
CALL  III 
YsYARRAY(NY) 

* * 406  CALL  000 

60  TO  450 
136  ■lRlTe(10>635) 

635  FORMATCIOX.STHE  AMOUNT  OF  FUNDS  ENTERED  AS  A CONSTRAINT  IS  TOO  SMA 
» • lUU  *S  NOT  EVEN  5 PERCENT  SUFFICIENCY  OF  SPARES  CAN  BE  OBTAINCOSl 

. . STOP 

126  INCR=INCR*>5 

* ANOHSsANORS-INCH 

* * IF(lNCR>TOL)1000tlO00>405 

1000  CALL  CFILE 

Nei:NeASE«l 
IlITOTxO 

* • DO  770  IxltS 

770  LLLtDxO 

DO  775  IX1«5 
IF i 1 SC ( n > 775 . 775 • 776 


i 


776  JJXlSC(II/25 


IF IJJ«a9-ISC ( 1 1 1 Tl« • 7S«. T39 

714  JJSJJ«1 
739  IF(l-4>41>41«7a5 

41  II1T0TS1IIT0T4JJ 
72S  LLLIIISJJ 
775  CONTlNUe 

UO  715  J=l>5 
IFIlSC(J)l7l5.715>7a9 
78S  KSO 

1F(J-1)733.734.733 

733  JJsj-1 

DO  745  111=1>JJ 
745  K=K«LLL(tIl> 

734  |ZsLLL(J> 

IFIJ-4)731>731>732 

731  00  755  LUslilZ 

IFACTsO 
K=K'»1 

UO  753  LL1=1>7«U1 

- 1SPaRE:K*IF*CT*11IT0T 


IFACTsIFACT*! 

CALL  lORUM 
UO  753  IZl:l>25 
753  NSPAReClZlfLUllsIIZOCtZl) 
IFCLU-1Z)757.756.757 

756  125sl5CIJI-25*<LL-l) 

60  TO  797 

757  125:25 

797  00  755  IZlxltl25 

755  MlTEia  )tNSPARE(IZltLLl)rLLlSl>NBl) 
60  10  715 

732  KlXNeASE'IIITOT 
UO  795  LLXI.IZ 
KXK*1 

ISPANEXKaKI 

call  IORUM 
1FILL-12I781>7S2»792 
791  125X25 

60  TO  791 


762  t25x|5C(J)-29«(U.>l) 


7«i  00  m uiiixs 


r\ 


•i . 


T9S  vRITEIS  ) 112011  ) 

719  CONTINUE 

CALL  CFILEl 

remind  11 
reminds 

IF(IBD) 090.950 >991 
951  DO  920  Jsl.lBD 

REA0(6  >(NS(I)>I:1>NB1) 
REA0(7I  FIINrC0STi7Z.RAT 
MM(nB1):NS(NB1> 

DO  923  Isl.NBASE 

XI1:NS(1>*RAT 

MMIDsXll 

1F(X11-MM(II|922>923>922 

922  MM(1)=MM(I)41 

923  NS(1)sNS<II-MM(1) 

MRITElS  )(MM(I).I=ltNBl) 

920  MRITEdl  ) (NS(I)  >I=1.NB1) 
REMIND  5 


I 


REMIND  7 
REMIND  11 

950  NUMbER(1):ISC(1) 

NUMaCR(2)SISC<2) 

NUMBER! 31 =ISC(1> 

NUMbEH(4)sISC(3) 

NUMBER(S)sISC(4) 

NUMBER(6):tSC(5) 

CT0FF(1)SCT0F<1) 

CTOfF(2)sCTOF(2) 

CTOFFI3l=CTOF(l) 

CT0fF<4|sCT0F(3» 

CT0FF(5)sCT0F(4) 

CT0FF(6IsCT0F«5I 
DO  720  lsl>6 
724  JJSNUMBERdt 

•0  TO  (7«1.T62«T63.764«769>7MIiI 
701  MRlTEd0.30) 


I 


71 


mR|TE(I0.71I 

FORMATdM  dOMROTABLE  POOL  ITEMS./ZtlH  .29MBASe-0eP07  (BASE  PORTIO 


19«d  NTs6 
NTisll 
jtzi 

60  TO  eo 

762  MRlTC(10i72t 

72  FORMAT (IHOtlSHBASe  REPAIRABLE>/I 
J2SJ2«1 
60  TO  800 

763  MRITE(l0>30t 
6R1TE(10>773) 

773  FOHMATdH  .ISHaTTRITION  ITEMS*//. 1H  .26MBASE-0EP0T  (DEPOT  PORTION) 

1./) 

722  NT:7 
NTIsb 
J2S2 
GO  TO  80 

766  «RITE(10.76) 

76  FORMAT (1H0.16HOEPOT  REPAIRABLE./) 

02=0261 


1 

t 

1 


[ 


f 


1 

! 


Lb 


60  TO  BOO 

765  «RITE(IO.TS) 

75  format (IHO.ISHBASE  CONSUMABLE./) 

02=0261 

GO  TO  800 

766  ARITEdO.SO) 

MR1TE(10.76) 

76  FORMATdH  .19HSTSTEM  STOCKS  ITEMS./.  1H0.16M0EP0T  CONSUMABLE./) 
02=2 

800  NTs6 
NTlSB 

80  0EM=CT0FF(I) 

IF  (00)  720.720.7000 
7000  00  721  0=1.00 

02  s 02  6 1 

REAO(NT)  F11N.C0ST.22.RAT.AN0ME.FSC.APPL.FSCM.C00M.UN1T.CSRC. 
1 CMNT.CMACC.AMNF.RPF.10U.T3.RC0C.1PPB.CT.NCC.PART.INS0TT.LRC 
IF(02-12)T2«.789.786 
726  02=1 

MRlTCdO.SO) 


30  FORMAT!  IHlitXt«HFllN.9X.12HMOMeNCLATUIIC*15X»3HrSNt33X«lSHIICFENCNCe 

I NO.  (OXt  3AHFSCM  MOOCL  UNIT  SRCE  MAINT  MACCi/it 

IN  .aax.xoHcoDE  issu  cde  cooe  cooc>/«ih  •ox.sahmrf  rmf 

l OUAN/  UNIT  PRICE  LRC  TaT  RULESi TX.SOHPaR  RU  7 
10  9 10  11  12  13  14  IS  16»/>1H  t26X>»HPR0Vf 22X»3 

1 HlMA.9X.«HC00e>SX>3HPL«/19H  APPLICATIONS.OSXf OH  INS  OTT) 

729  1F(1>9)150.190«151 

150  REAOINTl  XNSIKlItKlsl.NBl) 

00  1150  KlsldO 
IF(ANAC1(K1)>11S2>11S2>1149 

1149  1F(CT*ANAC1(K1|-0CM) 1151. 1151. 1152 

1151  INOIKlIslAST 
60  TO  1150 

1152  INOCKDslBLNK 

1150  CONTINUE 
K2=U 

UO  1250  Klsl.lO 
IFIMU.T(K1) )1240>1249.124a 
1249  N51(K1)=0 

60  TO  1250 


1246  K2=K2«1 

NS1(K1):NS<K2) 

1250  CONTINUE 

MRITEi 10.33)  FIIN.ANOME.FSC.FIIN.  PART.  FSCM. COON. UNIT. 

1 CSRC.CMNT.CMACC.AHRF.RPF.IOU. COST. LRC. T3.RC0E.IPP0. 

2 NS(Nel).(NSl(Kl>.INOIKI).Kl=1.10> 

33  FONMATdH  . A3. A4.2X.SA4.SX. A4(  1H-. A3. 1H-. A4.4X.5A4.2X. A4. Al. 

1 1X.A4.A3.2X.A2.3X.A2.4X.2A1.7X.A1/ 

2 4X.2(3X.F7.3).1S.F12.2.2X.A5.F6.0.2X 

3 a4.A2.A4. IX. 15. IX.  16.10(14. Al)  ) 

«R1TE(10.34)APPL.INS0TY 

60  TO  721 

151  REAU(0  )NS(Nei) 

WR1TCII0.33)  FI1N.AN0ME.FSC.  FIlN.PARTi  FSCM. COOM. UNIT. 

1 CSRC.CMNT.CMACC.AMRF.RPF. lOU.COST. LRC. T3.RC0C.1PP0. 

2 NS(N61) 

«R1TE(I0.34)APPL  .INSOTT 

34  FORMAT(1X.10(A4.A3.2X).«X.17/) 


721  CONTINUE 
720  CONTINUE 


ir(N6)lM0ttS60tlSS0 


r 


i 


»i 


C PRINT  P3  ITEMS 
1550  REalNO  15 
aRlTEClOiSOI 
MRlTC(10t79l 

79  POHMATtlH  (SHPi  ITEMS/i 
MsZ 

00  1551  K1=1»N6 

REA0(15I  FIINilOC*FSCtNCCiFSCMtCOOM.UNIT.RCOe>COST«PL>Z>APPl.»l«U, 
1 CSRCtCMNTtCMACCf  IPPO>RRR>ANOMe«PART>«AA>A*A>AMiA**>MA»*MRFt 
1 RPF  >INSOTY,LRC 
J2SJ2«1 

1F(J2>12I1559«1553>1552 
1552  J2sl 

aRlTEdOtSO) 

1559  WRITE(10>99I  FIIN.ANOMEtFSCtFIINt  PARTf  FSCM,COOM>UNIT> 

1 CSHC>CMNT»CMACC«AMRFtRPF«10U>C0ST>LRCiT9>RCDE>IPPe 
1551  «RITE(10«34>APPL>lNSaTY 

REMIND  IS 
156b  K2sO 


.J 


00  1330  Klsl.lO 

IF « MULT  I K1 1 > 1390 • 1330  > 192R 
1320  K2sK2*l 

TC0ST1(K1>=TC0ST(K2) 

PBA1(K1)sPBA(K2) 

133U  continue 

MRirE(IO>1340>TCaU 

aRITE(IOfl341IPBU>ANORSl 

1940  FORMAT(lHltlOX>29HOVERALL  COST  OF  BACKUP  IS>14X>F12.0I 

1341  FORMATillX.SOMPROBABlLITY  OF  SUFFICIENCY  IS  .F5.9/19Xt2BHC0MPARED 

1 TO  A CONSTRAINT  UF  >F5.9) 

UO  1350  KlsltlO 

K2:k1«6 

lF(MULT|Kllll94Bf 194S>1349 
1340  MR1TE(I0>1942IK2 

1942  FORMAT(/11X>24MNO  BASES  ASSIBNCO  C0LUMNd9l 
•0  TO  1350 

1349  TClsTCOSTltKl)*MULT(Kll 

MR1TEI10«1949IR2>TC0ST1(K1I>MULT(K1IiTC1 

1943  F0RMATI/11K.2IMT0TAL  COST  OF  COLUMN  •12>4H  IS  »FI2.0/IlXf 2BMNUMBER 


A 
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APPENDIX  E 
EDIT  PROGRAM 


An  edit  program  has  been  developed  that  will  check  for  data  errors  in  the  input  to  the 
ARINC  Research  Spares-Optimization  Program.  This  program  (EDIT)  wUl  review  the  format 
of  information  for  each  item,  eliminating  items  with  essential  information  missing,  and 
subsequently  will  group  similar  type  items  for  input  to  the  spares-optimization  program. 
The  inputs  to  EDIT  are  tapes  prepared  by  the  data-conversion  program  (IFINALTAPE, 
NUMBEROFFIINS),  which  convert  MDF  data  in  a UICP  Input  Data  Transcript  format  to  a 
form  acceptable  as  input  to  the  spares-optimization  program.  A general  description  is  pre- 
sented in  Figure  E— 1. 

For  each  item  the  following  tests  are  made: 

1.  Is  source  code  anything  other  than  PI,  P2,  or  P6? 

2.  Is  item  identification  code  a value  greater  than  five? 

3.  Is  cost  a value  less  than  or  equal  to  zero? 

4.  For  identification  codes  of  one  or  two  (consumable  items)  are  the  product  of 
removals/hr  X quantity /application  X number  of  applications  X percent/application 
and  the  product  of  overhaul  replacement  rate  X quantity/application  X percent/ 
application  X number  of  oveiiiauls  equal  to  zero? 

5.  For  an  identification  code  of  three,  is  the  product  of  removals  to  depot/hr  X 
quantity/application  X number  of  applications,  as  well  as  the  RRR  Quantity,  equal 
to  zero? 

6.  For  an  identification  code  of  four,  are  the  product  of  removals  to  base/hr  X 
quantity/application  X number  of  applications  and  the  product  of  removals  to 
depot/hr  X quantity /application  X number  of  applications  and  the  RRR  Quantity 
equal  to  zero? 

7.  For  an  identification  code  of  five,  is  the  product  of  removal  rate  to  base/hr  X 
quantity /application  X number  of  applications,  as  well  as  the  RRR  Quantity,  equal 
to  zero? 

If  the  answer  to  any  of  the  above  questions  is  yes,  the  item  is  rejected.  If  the  percentage  of 
items  rejected  becomes  greater  than  a maximum  value  specified  by  the  user,  the  program  is 
terminated. 

In  addition  to  the  tests  described  above,  EDIT  checks  the  value  of  production  lead  time; 
if  this  number  is  zero,  a value  read  by  the  program  at  execution  time  is  substituted  for  the 
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The  input  required  by  EDIT  consists  primarily  of  two  tapes  created  by  the  data- 
conversion  program  that  converts  data  from  the  UICP  Input  Data  transcript  format;  the  first 
tape  contains  a record  for  each  FUN;  the  second  tape  contains  the  number  of  FUN  records 
from  the  first.  However,  the  user  must  also  furnish  a data  card  specifying  the  percentage  of 
items  rejected  that  cannot  be  exceeded  and  the  value  of  production  lead  time  to  substitute 
for  zero  values  of  that  number.  An  explanation  of  the  input  card  is  given  in  Table  E— 1. 


Table  E-1.  EDIT  INPUT-CARD  DESCRIPTION 


Card  Columns 

Format 

Description 

1-10 

F10.2 

Maximum  percentage  of  items  that  can  be 

rejected  before  program  termination 

11-20 

F10.2 

Value  of  production  lead  time  to  substitute 

for  zero  values  of  that  number 

After  an  item  has  been  judged  acceptable,  it  is  stored  in  one  of  the  five  files  that  are 
inputs  to  the  spares-optimization  program.  Each  of  these  files  contains  items  of  a single 
type. 

Each  item  is  processed  in  turn  until  all  items  have  been  checked  or  until  the  percentage 
of  items  rejected  becomes  greater  than  the  maximum  specified,  at  which  time  the  program 
will  terminate. 

The  program  logic  is  shown  in  flow-chart  form  in  Figure  E— 2,  which  is  followed  by  a 
complete  program  listing. 

The  EDIT  program  has  been  designed  to  aid  the  user  in  screening  the  input  data  and 
eliminating  items  that  lack  essential  information,  resulting  in  an  optimization  program  that 
gives  more  meaningful  results. 


E-3 


MFOU  YX  EUITl 


FORTRAN  IV  COMPILATION  700SO  Sj 

C bOlT  PROORAM  FOR  F.  JACOBY  VRlTTCN  BY  0.  EvCLL.  FEBRUARY  1970 

INTEGER  FIINtFSC*FSCMiCOOE«UOI>RULES«APPL>SRCE>CMAINT(2I.CMACC. 

1 XlTEM.PNUM  >LRC>C06STM  tPl,P6  >P2 

DIMENSION  F1IN(2>>  FSCM(2l>  C00CI2I>  RULESOM  APPLI2tl0i> 

1 XITEMISI*  PNUMCSI 

data  PI/2HPI/*P6/2HP6/*P2/2MP2/ 

MEyiIND  <• 

REhINu  b 
kEmINU  lb 
lU  = 2 

iIH1TE(I0>999I 
999  format (1H1> 

L KbAO  percentage  of  RECORDS  REJECTED  BEFORE  ABORT  AND  VALUE  OF  PL  FOR 
C SUBSTITUTION  IF  RLANK 

RbAOdtlOOO)  aPCT.SUBPL 
lOUO  format (2F10. 2) 

C HEAU  NUMdER  of  records  ON  TAPE  FOR  EDIT 
HEAU(b>NUMREC 

INUM  = (IFlXiAPCT*NUMREc)«S0l/10Q 


C INITIALIXATION 
N1  = U 
N s 0 
N3  : U 
N4  s 0 
Nb  : 0 


N6SU 
NR  : 0 
NRbJ  : 0 

RLAU  RECORDS  FROM  TAPE 
IF(NR-NUMREC)101>20ai2U0 

RLaD(«I  FItNtlOCtFSC.NCC>FSCM>COOE.U01>RULESiCOST.PL>2> 

1 NOUANtSRCE>CMAlNT«CMACC>IPPOi 

2 RRRI (X1TEMIII>PNUM<II>1:1>9) •AAA>AAB>AAD>AAE>AAF>AMRFtRPF,PCTt 
i INSOTTiAPPL  (LRCtCOGSYM 

TR  : NR  « 1 

lFlbRCE-Pl)12S>ll5d2S 


12S  IFlSRCE-PG>135fll9«13S 
13b  IFISRCE-PGIlOStlSStlAS 
115  IF  IIOC-GI  SdOdO 


.'.‘i 


1 


i If  tcosT)  atitOftt 

15  IP  (PLI  MtMtM 

25  Pk  s SUBPL 

90  M TO  i«0*«0tM«Mt70>>lK 

C IOC  s I OP  IOC  > 2 
<t0  |P(AM»  i»4<»*»«5 
«b  IP«A«C>SO*OOi«9 
h5  M to  |)»2><l«lt  IOC 

«2  NS  s NS  ♦ I 

IPPT  s X* 

60  TO  90 

99  N9  3 N9  « 1 

IPRT  3 13 
60  TO  90 
C IOC  3 3 
50  IFIAMi96>96>SS 
69  lP(PPPI60»60t9S 
SS  N3  3 N9  « i 

IPHT  3 12 
60  TO  90 


-J 

] 

j 

i 


J 


C tUC  3 9 
60  IPI«Mt69>69t62 

69  IF(*A8lb6>66>62 

66  IF(RRRI60i60>62 

62  N1  3 NI  « 1 

IPhT  s 10 
60  TO  90 
C IOC  3 9 

70  1F(A«AIT6«76»7S 
76  IFIRRRI60»O0i7S 

75  N2  3 N2  « I 

IPHT  3 II 

90  OPITCIIPPT)  PllN>lDC>FSC>NCCtFSCM»e00C«U0I>PULESiC0ST>PL>2t 

1 APPLiNOUANtSPCe>CMA|NTtCMACC>lPPO« 

2 PNP>  XlTCP>PNUN»AAA»AAl>AM>tAAC»AAF»AMPF»PPF 

3 tINSOTV  •LPC*C06STM 
60  TO  100 

C ITEM  IS  P2 

IS9  MNITCI  IB  > FIlN<10C>PSC»NCCtFKM«C00C>U01tR(USfC0STfPL»2i 

APPL«N6UAN»SPCC»CMAlNTtCMACCt |PPO» 


I 


> ♦ j ► * - '•’ lij- 'it - -^|l^■^ 


i nm,  XITEH.PNUMtAAAtAABtAAOiAAEtMF.AMRF.RPF 

3 tINSQTV  iLRCiCO«SYM 
N6sn6«1 
60  TO  100 

c bounce  code  is  not  pi>i>2.  or  po 

145  ■RtTE(I0il36IFllN 

13b  format (IHOtSTHlS  FUN  NO.  S.ASiAA.S  CANNOT  BE  PROCESSEOt  ITEM  NOT 
IPl.Pa.  OR  P6SI 
GO  TO  105 
C UNKNOMN  ITEM 
lU  MHITe(I0>1002l  FIIN 

1002  format (IHO.STHIS  FIIN  NO.  S>  A9.A4>S  CANNOT  BE  PROCESSEOt  UNKNOM 
IN  TTPEbI 

105  NRLJ  s NREJ  * 1 

IF  (NREJ-INUMI  lOO.llOtllO 
C NEGATIVE  OR  2ER0  COST 
20  MRlTecIO.lOOS)  FIIN 

1003  format  I IHO.STHlb  FIIN  NO.  S.  A3.A4.S  CANNOT  BE  PROCESSED.  COST  I 

IS  MISSINGS) 

SO  TO  105 


'c  ESSENTIAL  INFO  MISSING 
60  WKlTEUO.lOOA)  FIIN 

1004  FORMAT! IHO.SThlS  FIIN  NO.  t,  A3.A4.S  CANNOT  BE  PROCESSED.  ESSENT 
UAL  INFO  IS  MISSING  SUCH  AS  MRF.RPF.RRR.GUANS) 

GO  TO  IDS 

110  «NITE(I0.1005)  APCT 

1005  FORMATllHO.lOX.FlO.l.G  PER  CENT  OF  ITEMS  HAVE  ERRORS.  JOB  IS  TERM 
IINaTEOS) 

N1  s 0 
N2  s 0 
N3  s 0 
N4  s 0 
N5  s 0 

200  kRITE!«INl.N2.N3.N4.NS  .Nb 
STOP 


end 

14140 
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APPENDIX  F 


ATTRIBUTES  CALCULATED  IN  THE 
DATA-CONVERSION  PROGRAM 


Quantities  calculated  are: 


(QA)i  * (RPF)i 


appcodes 


(AI)i  * (QA)i  * (MRF)i 


appcodes 


(AI)i  • (QA)i  ♦ (PA)|  * (MRF), 


appcodes 


NHA  \ 
pHLSji 


appcodes 


(AI)i  * (PA)i  ■»  (QA),  * (RPF)i 


NHA 

OHLS 


q)pcodes 


NHA  is  Next  Higher  Assembly;  OHLS  is  Overhauls. 
The  quantities  calculated  for  q>ecific  item  types  are 


is  Base  Consumable 
I>G  is  Depot  Consumable 
B-R  is  Base  Repairable 
B/D-R  is  Base-Depot  Repairable 
D-R  is  Depot  Repairable 


AAA 

AAB 

AAD 

AAE 

AAF 

RRR 

QUAN 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

1 : 

X 

X 

X 

APPENDIX  G 


PROCEDURE  FOR  ADDING  A DEN  TO  THE 
DATA  CONVERSION  PROGRAM 


An  identification  DEN  can  be  incorporated  in  the  ARINC  Research  Data-Conversion 
Program  by  adding  it  to  the  list  of  acceptable  DENs  in  WRTFIN  (the  COBOL  input/output 
routine),  by  processing  it  in  DCPASSl,  and  by  adding  it  to  all  input/ output  lists  in  DCPASS 
1 and  DCPASS2. 

To  follow  an  example  through  all  phases  of  addition,  DEN  B054  is  selected;  the  value  in 
columns  20-28  is  to  be  printed  out  under  “new  information”  in  the  lOL-listing.  In 
WRTFIN,  the  COBOL  subroutine  of  DCPASSl,  locate  in  the  Working  Storage  section  the 
level  01  array  MAJ-ID-TBL.  This  table  defines  all  DENS  that  will  be  passed  along  to 
DCPASSl  from  the  input  tape.  Add  a level  03  filler  with  the  value  of  the  DEN.  The 
following  table,  MAJ,  must  be  increased  by  one  to  accommodate  the  new  DEN. 

In  the  Procedure  Division,  locate  paragraph  ANAL,  which  analyzes  the  input  record  for 
an  acceptable  DEN.  The  index  should  be  incremented  by  1 to  reflect  the  added  DEN.  The 
COBOL  subroutine  is  now  complete. 

In  DCPASSl,  a variable  must  be  named  to  hold  the  new  data.  B54CST  is  selected.  Since 
this  is  an  implied  real  value  (does  not  begin  with  I,  J,  K,  L,  M,  or  N),  it  need  not  be  declared 
REAL.  A variable  for  the  DEN  is  chosen  to  be  the  same  as  its  value,  B054,  for  clarity.  The 
variable  B054  is  to  be  compared  with  an  integer  variable,  APPCD;  therefore,  B054  must  be 
declared  INTEGER. 

Now,  a value  for  B054  must  be  assigned  in  a DATA  statement.  The  notation  is  DATA 
B054/4hB054/,  which  is  explained  as  follows: 

B054  (variable  name)/(open  description)  4 (characters)  h (Hollerith)  B^54  (value)/ 
(close  description). 

The  logic  of  checking  DENs  must  now  be  followed  to  find  where  the  B54CST  data  can 
be  read.  Since  all  non-D009  DENs  are  read  first,  the  correct  spot  must  be  between  lines  103 
and  200. 

The  arithmetic  IF  in  FORTRAN  gives  three  addresses  to  branch  to  if  the  result  is 
negative,  zero,  or  positive,  in  that  order. 

After  line  103,  we  see  such  a branch.  If  the  tested  DEN  is  greater  than  B002,  we  jump 
to  line  107;  otherwise,  we  jump  to  line  105  and  read  the  local  routing  code.  Since  B054  is 
greater  than  B002,  we  go  to  107.  Since  B054  is  greater  than  B053,  we  go  to  130.  At  130,  we 
test  B054  against  C004  and  find  the  result  negative,  and  go  to  140.  At  140,  we  test  the  DEN 


G-1 


1 


\ 


1 


f 


against  B067  and  would  expect  to  transfer  to  102,  since  the  test  is  negative.  But  we  do  not 
go  to  102,  since  that  would  read  a new  card.  Hence,  we  change  the  address  of  that  jump  to  a 
new  line  number,  144,  where  we  CONTINUE  (a  no>operation).  Now  we  test  our  DEN  B054 
against  the  test  value  JDENT.  If  we  find  it  equal,  we  want  to  read  in  the  B54CST,  or  else 
jump  to  102.  The  B54CST  can  be  read  under  the  FORMAT  at  1012,  which  skips  19  q)aces, 
then  reads  9 columns  with  2 decimal  places.  The  resulting  sequence  is; 

140  CONTINUE 

IF  (JDENT-B067)  144, 142, 102 

142  CONTINUE 

READ  (IHOLD,  1014)  RULSCD 
GO  TO  102 

144  CONTINUE 

IF  (JDENT-B054)  102, 146, 102 

146  READ  (IHOLD,  1012)  B54CST 
GO  TO  102 

We  have  read  the  B54CST;  now  we  must  pass  it  on.  At  the  end  of  DCPASSl,  we  output 
the  entire  FIIN,  unformatted.  It  is  only  necessary  to  add  B54CST  to  the  output  list, 
immediately  behind  the  local  routing  code.  DCPASSl  is  now  complete. 

DCPASS2  is  somewhat  easier,  but  more  cards  must  be  changed  because  of  the  sub- 
routine structure  of  the  program.  All  items  are  in  COMMON,  so  we  must  add  B54CST  to  the 
COMMON  list  in  each  subroutine,  in  addition  to  the  main  driver.  It  is  not  necessary  to 
declare  it  REAL. 

Wherever  there  is  a READ  or  WRITE  of  an  entire  FIIN  record,  B54CST  must  be  added 
at  the  end.  The  only  position  in  which  the  driver  is  affected  is  immediately  after  line  62, 
where  the  item  is  found  to  be  a consumable  and  saved  in  ITAPIR. 

In  the  various  subroutines,  10  READ  or  WRITE  statements  are  affected,  and  B54CST 
must  be  added  to  each  of  them.  DCPASS2  is  then  complete,  and  the  new  DENs  passed  to 
the  optimization  programs. 

The  procedure  for  adding  a DEN  is  not  complicated,  as  has  been  shown  above,  but  the 
addition  affects  many  sections  of  the  program. 
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7UkH-l.  PWMftAM  INITtAUSATION  CHABT 


Dll*  laHy 


Dill  Comwnkom  Pn^mi 


Dil*Cofiv«nim  Piapm 
-NhI 


flync  Hwn 
Mofilh  ftapiftiMM  ^ 


AO*  - (AO'8) 

Jml 

Malnt  Moat 

Cyda  Cyela_ 

■ 

f (MOnItM) 


M tl 
l-IO 

(iMpM  9 4»eim»i  pkem  m rokmm 
9.  9. 10)«* 


ONf^iuli  pir  AlMufi 


11-10 

(lapM  9 Omul  plnM  in  nnlyii 
19.  19.  Ml** 


lyiUm  pm  AircnA 


tl-90 

(laplM  9 dirtnl  pteBM  in  celunM 
19. 19.  901«« 


fVobihiUty  Pioy 
- Ptob  1 


Nuabw  of  dMitiO  Cotuaw  in 
IOL^m^ 


Phrliig  Houn 
MomA  ComwmMm 


•Tl 


njriiit  Houn 
Month  Ropiv^lM 


•OtnoMhi) 


■o  (Kvonr^ 

MiMl  ~ M^H  !S 
.CycMi  Cy^.  MC 

Kneirthi) 


C«0«1 

1-9 


CiH  ft 
l-9»** 


9-19**« 


IMA  TAT 

• Ta 

Raauppiy  TIaa 

•T4 

Proactien  Tiaa 

.T8 

(Cntaiaahla) 

17-94*** 

19-91*** 

99-40*** 


■— TMm  • TO 

Protebility  Comlnint  • aNOM 


41-49*** 

49“90»*» 


ProbibiUty  Pra^im 
- Prob  1 


Mminum  DoouMidt  iaw  iMpet  lion 
Numbit  of  MooUm 


Mininua  Dimand  Ba»  RapoiwhH  Iloa 
Nuaba  ol  Monihc 

Mbiiaua  pwmnd  Dipei  lUpobibM  Itm 
Nuabw  of  Montht 

MuUnua  Otmtnd  Bia  ConfUMhle  Itoa 
Numbw  of  Month* 


Cad  ft 

1-9 

9-10 

17-14 

19-9t 

99-40 

41-49 

49-M 

67-04 


Mtnimun  Dnand  Dopot  CoowaiblM 
Nuaba  of  Month* 


06-7t 

79-00 


PrabibUtty  Pfoyan 
-Prob  1 


Probability  Profnin 
-Prob  2 


Coat  Pro^am 
-Coat  1 


Cost  Propia 
-Coa  1 


Ptywid  Hour  Proffantt  Column  7 

Expnaad  a Plyinc 
Houn  pa  Month 


Cadf4 

1-Ottt 


Cohian  9 
Cohnn  9 
Cohmt  10 
Cofaian  11 
Cohian  II 
Cohau)  19 
Coluan  14 
Cohian  18 
Cohiou)  19 


9-19 

17-14 

t8-9t 

99-40 

41-a 

49-M 

87-04 

08-72 

79-90 


Nuaba  of  itaa*  whoa  daa  an  ba  kapt 
m cot*  amiultanaoualy.  (laf*  a poalbl*) 


800 


1-8 

(rMit  iuattfMl 


An  It  a C 


Wbatha  tun  ia  tob*  aphat 
r*pMwbia  a wwwuaabia 


Cad  fl 

1 


Coat  Conatrtint 

Nuaba  of  Baaa  Conatdarad 

Probability  ToMnnc* 


11-n 

(aiat  punch  a dmaai  poatl 

91-94 

(ri^tjuaUlad) 

41-90 

(auat  paieh  a danaal  pohitl 


Fa  aach  baa  a cad  with  tha  cohian 
aatacUon  fa  that  baa.  <8  baaa  would 
nquin  8 cada) 

Nait  9 cad*  an  aam*  a card*  I.  9, 
aid  4 of  ProbablUty  Conatraint  Profna 


1-1 


Coat  Propaa 
-Con  2 


Input  Cad  IB  BBOM  a a Probability 
Conatntnt  Prob  S. 


Figure  H-1.  LISTING  OF  CONTROL  CARDS  USED  TO  EXECUTE  THE 
PROGRAMS  FROM  AN  OBJECT  TAPE 

Data-Conversion  Program 


* 

JOB 

ARINC 

]■ 

ASG 

JwR  TAPE,P,,aHlNCrBjLCT 

IN  R 

P.nCPASSl 

ASG 

JWR  TAPE.F,,  Ii'.PGTTAPE 

• 

ASG 

JWR  I APE ,H, . SCRATCH 

ASG 

JWR  TAPE, E,, SCRATCH 

• 

ASG 

J RAN, U, loco 

• 

ASG 

J RAN'.I.IOCOC 

GO  Y 

GCPASSi , jre 

-- 

END 

FREE 

K H.NUWREROFF I I NS 

FREE  R F 

FREE  R EfFIINSTP 
JOB  aRINC 

ASG  JkR  7ARE,P,,AKll\JC0RJtCT 

IN  R P,DCPASS2 

ASG  JR  TAPE,F , .SCRATCH 

ASG  JH  TAPE, 0, .NUPHERCFF 1 INS 

ASG  JR  TAPE,E,,F1 INSTP 

ASG  JWR  TAPE, K, .SCRATCH 

ASG  JR  TAPE. G, .SCRATCH 

ASG  JH  TAPE, H, .SCRATCH 

ASG  JR  TAPE, I , .SCRATCH 

ASG  JR  TAPE, J, .SCRATCH 

GO  Y 0CPASS2.J0B 

2560.  0.0  1.0 

END 

FREE  R F.iriNALTAPE 

FREE  R D 

FREE  K E 

FREE  R P 

END 

FIN 


I 


Figure  H—1.  (continued) 


Probability'Constraint  Program 
JOB  ABINC 

ASC  JKK  rAPF,P,,AHlNCCHJtCT 
IN  K P,EDIT,PftrBl,P«rB2 
ASG  J.<  TAPt.O,  , IF  iNALTAPt 
ASG  JK  TAPE,E,,NUM0EKL'FFI  INS 
ASG  JK  TAPF,0, ,SCUATCh 
ASG  JK  TAPE, M,, SCRATCH 
ASC  JWK  TAPE»\,,SC«ATCH 
ASG  J KANtl.lCCUOC 
ASG  J KAN,J,10CO00 
ASG  J RAN,K,50C')0 
ASG  J KAN.Lf'iOCOO 
GO  Y to  IT, JOB 

75.  10. 

tM) 

FREE  R D 
FKCE  R E 

ASG  JK  TAPE, F, .SCRATCH 
ASG  JKR  TAPE, G, .SCRATCH 


GO  Y 

5 

1655.6 

PRCIBI,  JCb 

2560. 

1., 

15. 

90. 

75. 

.95 

-I. 

6. 

-1. 

6. 

-1. 

6. 

-1. 

2ao. 

END 

710. 

1150. 

16A7. 

2390. 

ASG  JK  TAPE, e, .SCRATCH 
ASG  JKR  tape, H, .scratch 
FREE  L 

GO  Y PR0b2,JCJB 
00500 
END 

FRFE  K E.HCFUPCATE 

FREE  « P 

END 

FIN 


JUP  Aft  INC 

ASG  jv,ft  TAPEtPt  .AK  INCrHJLCT 

IN  ft  P,ECI1,CPST1,CC.ST2 

ASG  Jft  TAP£,D, , IP INALTAPt 

ASG  Jft  TAPE,E» tNUPHEKLPP IINS 

ASG  Jft  TAPC.O, .SCKATCH 

ASG  Jft  TAPt,M,,SCKArCH 

ASG  JWR  TAPE, N,, SCRATCH 

ASG  J ftAN,I,lOCOOG 

ASG  J RAN.J.IOCOOO 

ASG  J ftAN,K,50t:0C 

ASG  J RAN,L,50Cn() 

GCi  Y hUIT.jOrt 

75.  IC. 

END 

PREE  ft  L! 

FREE  ft  E 

ASG  Jft  TAPE, F,, SCRATCH 
ASG  Jv<ft  TAPE, Gf , SCRATCH 
GO  Y COSTl,JOa 

C 2C000G.  COlO  ,G1 

07 
0 7 
07 
0 7 

07 

08 
06 
08 
09 
11 

1655.6  2560.  3.  15.  90.  75.  .95 

“1.  6.  ■“!.  6.  ■“!.  6.  *1.  6 

280.  710.  1150.  1657.  2390. 

END 

ASG  JK  TAPE, E, .SCRATCH 
ASG  JWR  TAPE.H,, SCRATCH 
GU  Y C0ST2,J0B 
00500 
CNO 
FIN 
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APPENDIX  I 

OPERATOR  INSTRUCTIONS 


Table  I— 1 describes  the  operator  actions  on  the  490  system  necessary  for  execution  of 
the  ARINC  Research  Corporation  programs,  assuming  that  REX  (Real-Time  Executive 
routine)  is  resident  in  memory  for  all  processing. 


Table  l-t.  OPERATOR  INSTRUCTIONS 


Table  I— I.  (continued) 


